Решить 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 <iostream>
using namespace std;
int main(){ int n; cin >> n; int* arr = new int[n]; for (size_t i = 0; i < n; i++) { cin >> arr[i]; }
for (int i = 0; i < n - 1; i++)  { bool swapped = false; for (int j = 0; j < n - i - 1; j++)  { if (arr[j] < arr[j + 1])  { swap(arr[j], arr[j + 1]); swapped = true; } } if (!swapped) break; }
for (size_t i = 0; i < n; i++) { cout << arr[i] << " "; } cout << endl; return 0;}