// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(10,-10,10); a.Println;
a.Sort; a.Println;
a:=a.SortedDescending.ToArray; a.Println
end.
Пример
9 -8 3 5 2 -9 -10 -5 8 9
-10 -9 -8 -5 2 3 5 8 9 9
9 9 8 5 3 2 -5 -8 -9 -10