// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-34,33); a.Println;
Sort(a,(x,y)->x>=y); a.Println
end.
Пример
n= 15
-23 29 25 -10 -13 28 -13 -14 -2 -26 -20 26 10 -18 10
29 28 26 25 10 10 -2 -10 -13 -13 -14 -18 -20 -23 -26