Дано одновимірний масив цілих чисел. скласти програму сортування елементів одновимірного масиву.сортування елементів масиву за спаданням методом вставки.

#include <iostream>

int main()

{

int A[5];

int i, imax=0, imin=0,s = 0, k = 0;

setlocale(LC_ALL, "Russian");  // Русский язык в консоли

for (i = 0; i < 5; i++)

{

 std::cin >> A[i];

 if (A[i] == 0) k++;

 else if (A[i] > 0) s += A[i];

 if (A[i] > A[imax]) imax = i;

 if (A[i] < A[imin]) imin = i;

}

std::cout << "Максимальный элемент равен " << A[imax] << ", его номер - " << imax+1 << std::endl;

std::cout << "Минимальный элемент равен " << A[imin] << ", его номер - " << imin + 1 << std::endl;

std::cout << "Сумма положительных элементов равна " << s << std::endl;

std::cout << "Количество элементов, равных нулю: " << k << std::endl;

return 0;

}

// PascalABC.NET

function ВерхнийТреугольник(Матрица: array[,] of integer):

   sequence of integer;

begin

 var ИндексMax := Матрица.RowCount - 1;

 for var ИндексСтроки := 0 to ИндексMax - 1 do

   for var ИндексСтолбца := ИндексСтроки + 1 to ИндексMax do

     yield Матрица[ИндексСтроки, ИндексСтолбца]

end;

begin

 var n := ReadInteger('N =');

 var СлучайнаяМатрица := MatrRandom(n, n, -99, 99);

 СлучайнаяМатрица.Println;

 var ПоложительныеЭлементы :=

      ВерхнийТреугольник(СлучайнаяМатрица)

     .Where(Значение -> Значение > 0);

 Println('Сумма положительных элементов равна',

     ПоложительныеЭлементы.Sum);

 Println('Число положительных элементов равно',

     ПоложительныеЭлементы.Count)

end.