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

var  i,j,k,n:integer;  a:array of integer;begin  Write('Введите количество элементов массива: '); Read(n);  SetLength(a,n);  Writeln('Введите элементы массива');  for i:=0 to n-1 do Read(a[i]);  for i:=0 to n-2 do    for j:=i+1 to n-1 do      if a[i]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;  for i:=0 to n-1 do Write(a[i],' ');  Writelnend.Тестовое решениеВведите количество элементов массива: 10Введите элементы массива57 18 31 40 45 75 85 43 93 2793 85 75 57 45 43 40 31 27 18