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

Question

Информатика

Алека

3 сентября, 15:38

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

+2

Ответы (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.