Сор по информатике задание и 7​

01001001

прописные буквы

В C++ работает этот код. Других языков практически не знаю.
#include <iostream>
int main()
{
    using namespace std;
    const int n = 8;
    double Arr[n] = { 122.3, 11.4, -34.2, 17.8, -25.5, -54, 34, -43};

    for (int i = 0; i < n; ++i)
        cout << Arr[i] << "  ";
    cout << endl;

    double max, min;
    for (int i = 0; i < n; ++i)
    {
        if (Arr[i] < 0)
        {
            int inegmax = i;
            for (int j = i; j < n; ++j)
                if (Arr[j] < 0)
                    if (Arr[j] >= Arr[inegmax])
                        inegmax = j;

            max = Arr[inegmax];
            Arr[inegmax] = Arr[i];
            Arr[i] = max;
        }
        else
        {
            int iposmin = i;
            for (int j = i; j < n; ++j)
                if (Arr[j] >= 0)
                    if (Arr[j] < Arr[iposmin])
                        iposmin = j;

            min = Arr[iposmin];
            Arr[iposmin] = Arr[i];
            Arr[i] = min;
        }
    }

    for (int i = 0; i < n; ++i)
        cout << Arr[i] << "  ";
    cout << endl;
    return 0;
}

Const
  M = 10; // Количество строк
  N = 10; // Количество столбцов

var
  arr: array [1..M, 1..N] of integer;
  i,j,z,min,temp : integer;
begin
  for j := 1 to M do
    for i := 1 to N do
      arr[j, i] := random(99);
  
  writeln('Исходный массив:');
  for j := 1 to M do
  begin
    for i := 1 to N do
      write(arr[j, i] : 2, ' ');
    writeln;
  end;

  for j := 1 to M do
  begin
    for i := 1 to N - 1 do
    begin
      min := i;
   
      for z := i + 1 to N do
        if arr[j, z] < arr[j, min] then
          min := z;
   
      temp := arr[j, min];
      arr[j, min] := arr[j, i];
      arr[j, i] := temp;
    end;
  end;
  
  writeln;
  writeln('Отсортированный массив');
  for j := 1 to M do
  begin
    for i := 1 to N do
      write(arr[j, i] : 2, ' ');
    writeln;
  end;
end.