Дан массив состоящий из 10 элементов введенных с клавиатуры вывести номера элементов...

Question

Дан массив состоящий из 10 элементов введенных с клавиатуры вывести номера элементов массива сумма цифр которых равна 5.

Answer 1

 

uses crt;
var i:integer;
a:array[1..10] of integer;

begin
randomize;

for i:=1 to 10 do a[i]:=random(99)+1;

for i:=1 to 10 do
begin
if ( (a[i] div 10) + (a[i] mod 10) ) = 5 then
write(a[i],' ');

end;
writeln;

readln;

end.