<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-5,0); a.Println;
end.
<u>Пример</u>
n= 10
-4 -4 -1 -1 0 -3 0 -2 -4 -5
1 Берем корж.
2 Делаем крем.Ложим сметану,творог,сахар.
3 Включаем миксер.
4Всбиваем крем.