Составьте программу ,которая заполняет массив а [1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы ,значения которых являются четными и кратными 3.
на каком языке?
pascal abc
Не знаю сойдет или нет, но как бы эту задачу давно решал. 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.
Спасибо!!