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

Question

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

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.