Используя обменную сортировку, отсортировать массив по убыванию
Сделать в динамическом массиве чтобы все элементы вводились с клавиатуры PascalABC

// PascalABC.Net 3.2begin  var n:=ReadInteger('Введите количество элементов массива:');  Writeln('Введите элементы массива');  var a:=ReadArrInteger(n);  for var i:=0 to n-2 do    for var j:=i+1 to n-1 do      if a[i]<a[j] then Swap(a[i],a[j]);  a.Printlnend.Тестовый примерВведите количество элементов массива: 10Введите элементы массива57 18 31 40 45 75 85 43 93 2793 85 75 57 45 43 40 31 27 18