Составить программу, которая формирует одномерный массив и выводит на экран все элементы, кратные 7.

Question

Информатика

Гошуня

19 декабря, 23:22

Составить программу, которая формирует одномерный массив и выводит на экран все элементы, кратные 7.

+5

Ответы (1)

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

Лев · Answer 1

Const

n=10;

var

a:array[1 ... n]of integer;

i, k:integer;

begin

for i:=1 to n do

begin

a[i]:=random (100) ;

write (a[i]:4) ;

end;

writeln;

for i:=1 to n do

if a[i] mod 7=0 then

begin

write (a[i]:4) ;

k:=k+1;

end;

if k=0 then

writeln ('нет кратных 7')

end.