// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Sort; a.Println
end.
Пример
n= 13
24 13 -40 -41 46 37 -16 -21 -39 39 -10 -28 15
-41 -40 -39 -28 -21 -16 -10 13 15 24 37 39 46