составить программу,которая заменяет все нечетные числа на 46(массив из A целых чисел формируется случайным образом в интервале [16;28]

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

ПОСТ
  A = 100;

ПЕР
  массив: РЯД A ИЗ ЦЕЛ;
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО A - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 12)) + 16
  КОН;
  ОТ сч := 0 ДО A - 1 ВЫП
    ЕСЛИ НЕ   ЧЕТ(массив[сч]) ТО массив[сч] := 46 КОН
  КОН

КОН Задание.