Составьте программу ,которая заполняет массив а [1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы ,значения которых являются четными и кратными 3.

Аминаgjdhkutdf Аминаgjdhkutdf    3   07.07.2019 20:50    0

Ответы
nikzhukov989 nikzhukov989  30.07.2020 23:30
Не знаю сойдет или нет, но как бы эту задачу давно решал.

var a:array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do 
begin
a[i]:=random(30)+1;
if a[i] mod  3  = 0 then
write (a[i],' ');
end;
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика