Question

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

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Матем ИЗ "...ОтделыЧисла";

ПЕР
  a: РЯД 20 ИЗ ЦЕЛ;
  сч: ЦЕЛ;

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

КОН Задание.

Answer 2

Силен...)

Answer 3

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