Abc pascal.дан одномерный массив с(n). сформировать новый массив в, состоящий из элементов массива с, кратных 7.выведите на печать образованный массив и число его элементов.
ruslan426
1
04.10.2019 08:11
11
Другие вопросы по теме Информатика
Рара15рара1
17.05.2020 21:51
veronikarub
17.05.2020 21:49
dizelist7
20.08.2019 22:30
sahrona04
26.06.2019 03:30
настасимммаа
23.12.2019 12:08
daviduk2509
23.12.2019 12:02
PlatMasha
29.09.2019 07:50
H1tg1rl
26.11.2020 08:36
Djamkaa0325
26.11.2020 08:36
Популярные вопросы
- Розрахуйте кількість населення країни, якщо відомо, що рік тому в ній проживало...
1 - Скильки точек вместе геометрическое место точек який належить куту равно видали...
3 - Во Найдите знаменатель геометрической прогрессии, если c1=1 и S5=341....
3 - сделать надо таблица А В СД...
1 - Выпиши из предложений фразеологизмы с числительными (так, как они даны в предложении),...
2 - Напишите сочинение-рассуждение помните!...
1 - Досье на злочін підстава оповідання пістлява стрічка...
2 - Привели многочлен к стандартному виду: 3x×7y²×(-2x)-5x×(-11y²)1. 42x²y²-55xy²2.-xy(42xy-55y)3.-42x²y²-55xy²4.-42x²y²+55xy²...
1 - Яке значення має насіння у природі ?...
1 - Задание на повторение предыдущей темы (письменно в тетради). Используя карты,...
3
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.