Предмет: Информатика,
автор: zaika1232
СРОЧНО!!! ABC Pascal.Дан одномерный массив С(N). Сформировать новый массив В, состоящий из элементов массива С, кратных 7.Выведите на печать образованный массив и число его элементов.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Английский язык,
автор: alinkamalinka010
Предмет: Русский язык,
автор: Аноним
Предмет: Другие предметы,
автор: samiraistuganova130
Предмет: Физика,
автор: urageroev
Предмет: География,
автор: olgashtanko02