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

Силен...)

Быстро писал)

ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";ПЕР  a: РЯД 20 ИЗ ЦЕЛ;  сч: ЦЕЛ;УКАЗ  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП    a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ()*30)) + 1  КОН;  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП    ЕСЛИ ЧЕТ(a[сч]) И a[сч] ОСТАТОК 3 = 0 ТО      Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)    КОН  КОНКОН Задание.