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

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