создать массив из 10 чисел, каждое из которых не больше 28 найти номер первого элемента массива, делящегося на 7(паскаль)
создать массив из 10 чисел, каждое из которых не больше 28 найти номер первого элемента массива, делящегося на 7(паскаль)
Гость
Ответ(ы) на вопрос:
ГостьПрограмма на Паскале:
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.
Не нашли ответ?
Похожие вопросы