СРОЧНО!!! ABC Pascal.Дан одномерный массив С(N). Сформировать новый массив В, состоящий из элементов массива С, кратных 7.Выведите на печать образованный массив и число его элементов.
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
8 лет назад