Question

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

Answer 1

// PascalABC.Net 3.2
begin
  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.Println
end.

Тестовый пример
Введите количество элементов массива: 10
Введите элементы массива
57 18 31 40 45 75 85 43 93 27
93 85 75 57 45 43 40 31 27 18