// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(30,-30,30); a.Println;
Sort(a); a.Println
end.
Пример
-19 19 19 -18 13 -19 -3 13 7 -11 7 0 -12 -21 8 9 -30 27 -18 18 -28 25 -19 -12 -26 -23 1 -15 -4 -9
-30 -28 -26 -23 -21 -19 -19 -19 -18 -18 -15 -12 -12 -11 -9 -4 -3 0 1 7 7 8 9 13 13 18 19 19 25 27