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

Question

Информатика

Авдотья

11 марта, 01:05

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

+1

Ответы (1)

Знаете ответ на вопрос?

Светлан · 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.