СРОЧНО!!! ABC Pascal.Дан одномерный массив С(N). Сформировать новый массив В, состоящий из элементов массива С, кратных 7.Выведите на печать образованный массив и число его элементов.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.