СРОЧНО!!! ABC Pascal.Дан одномерный массив С(N). Сформировать новый массив В, состоящий...

Question

СРОЧНО!!! ABC Pascal.Дан одномерный массив С(N). Сформировать новый массив В, состоящий из элементов массива С, кратных 7.Выведите на печать образованный массив и число его элементов.

Answer 1

var c,b:array [1..1000] of integer;

i,n,k:integer;

begin

k:=1;

readln(n);

for i:=1 to n do

begin

c[i]:=random(15);

write (c[i]:3);

if c[i] mod 7 = 0 then

begin

b[k]:=c[i];

k:=k+1

end

end;

writeln;

for i:=1 to k-1 do write (b[i]:3);

writeln;

writeln (k-1)

end.