// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var a:=ArrRandom(30,-100,100); a.Println;
a.Sorted.Print
end.
Тестовое решение:
66 -58 -75 -13 0 -89 75 41 37 -62 96 47 14 -14 24 -45 -60 52 14 94 -18 100 8 -92 -62 100 66 51 89 -36
-92 -89 -75 -62 -62 -60 -58 -45 -36 -18 -14 -13 0 8 14 14 24 37 41 47 51 52 66 66 75 89 94 96 100 100