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

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