Напиши программу, которая заполняет массив Rost длиной 12 случайными числами от 150 до 180

Question

Напиши программу, которая заполняет массив Rost длиной 12 случайными числами от 150 до 180

Answer 1

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

ПЕР
  Rost: РЯД 12 ИЗ ЦЕЛ;
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(Rost) - 1 ВЫП
    Rost[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 30)) + 150
  КОН

КОН Задание.