Question

Дан массив из 10 элементов, заданных случайным образом. Вывести его на экран, отсортировать массив по возрастанию и убыванию.

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(10,10,99); a.Println;
  a.Sorted.Println;
  a.SortedDescending.Println
end.

Тестовое решение
64 96 11 47 51 28 69 72 44 44
11 28 44 44 47 51 64 69 72 96
96 72 69 64 51 47 44 44 28 11