создать массив из 10 чисел, каждое из которых не больше 28 найти номер первого элемента...

Question

создать массив из 10 чисел, каждое из которых не больше 28 найти номер первого элемента массива, делящегося на 7(паскаль)

Answer 1

Программа на Паскале:
Program BiFi;
Const N=10;
Var A:array [1..N] of integer;
i,k:integer;
Begin
k:=0;
for i:=1 to N do begin A[i]:=random(28);
                       while k=0 do if A[i] mod 7 = 0 then k:=i;
                      end;
writeln(k);
readln;
end.