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

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