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

0 голосов
36 просмотров

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


Информатика (22 баллов) | 36 просмотров
0

на каком языке?

0

pascal abc

Дан 1 ответ
0 голосов

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

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.

(200 баллов)
0

Спасибо!!