// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; a.Sort; a.Printlnend.
Примерn= 1324 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