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.