Дана программа:
var i : byte;
a : array[1..10] of integer;
BEGIN
randomize;
for i:=1 to 10 do
begin
a[i]:=random(899)+100;
write(a[i]:4);
end;
writeln;
// Программа должна дописать в строку
// четные элементы массива,
// делящиеся на 3.
END.
Задание:
Доработайте программу таким образом, чтобы из исходного массива случайных целых чисел были отобраны четные делящиеся на 3.