Помогите решить
1) дан целочисленный массив, вывести на экран упорядоченный массив от наибольшего до наименьшего.

// 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

Вот на языке С++

#include lt;iostreamgt;
using namespace std;
int main(){ int n; cin gt;gt; n; int* arr = new int[n]; for (size_t i = 0; i lt; n; i++) { cin gt;gt; arr[i]; }
for (int i = 0; i lt; n - 1; i++)  { bool swapped = false; for (int j = 0; j lt; n - i - 1; j++)  { if (arr[j] lt; arr[j + 1])  { swap(arr[j], arr[j + 1]); swapped = true; } } if (!swapped) break; }
for (size_t i = 0; i lt; n; i++) { cout lt;lt; arr[i] lt;lt; " "; } cout lt;lt; endl; return 0;}