Задать случайным образом n элементов числового массива -числа от -10 до 10. подсчитать количество отрицательных элементов массива.

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

ПЕР
  массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
  N, сч, отрицательных: ЦЕЛ;

УКАЗ
  N := Приём.Число();
  СОЗДАТЬ(массив, N);
  отрицательных := 0;
  ОТ сч := 0 ДО N - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 20)) - 10;
    ЕСЛИ массив[сч] < 0 ТО УВЕЛИЧИТЬ(отрицательных) КОН
  КОН;
  Вывод.ЧЦел("^%d", отрицательных, 0, 0, 0)

КОН Задание.