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.