// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(Readinteger('n='),1,99); a.Println;
a.SortedDescending.Println
end.
Пример
n= 15
56 5 67 93 77 58 10 48 29 13 87 51 16 55 88
93 88 87 77 67 58 56 55 51 48 29 16 13 10 5