Дана матрица А(nxn). Написать программу, которая находит максимальный по абсолютной величине элемент и...

[Vergilloo]

Дана матрица А(nxn). Написать программу, которая находит максимальный по абсолютной величине элемент и переставляет строки и столбцы так, чтобы он оказался в левом верхнем углу.

[p51x]

здесь не онлайн решатель ваших ДЗ, не?

[Npwas]

Вот

program Matrix_The_Path_Of_Neo;

 uses crt;

Const
   Neo=50;
   Triniti=25;

 Type
   matrix=array of array of Real;

 Var
   Morfius:matrix;
   N,M,k,z:Integer;

  PROCEDURE ShowMatrix;
   Var
     i,j:Integer;
   BEGIN
    For i:=0 to N-1 do
     Begin
      For j:=0 to M-1 Do
        Write(Morfius[i,j]:4:0);
      Writeln
     End;
   END;

  PROCEDURE MakeMatrix;
   Var
     i,j:Integer;
   BEGIN
    Randomize;
    Write('Vevdite kol-vo strok: ');
    Readln(N);
    Write('Vevdite kol-vo stolbzov: ');
    Readln(M);
    SetLength(Morfius,N,M);
    For i:=0 to N-1 do
     For j:=0 to M-1 Do
       Morfius[i,j]:=Random(Neo)-Triniti;
    Writeln;
   END;

   PROCEDURE Found_MaxEl;
    Var
      i,j:Integer;
      MaxEl:Real;
    BEGIN
      MaxEl:=Morfius[0,0];
       For i:=0 to N-1 Do
         For j:=0 to M-1 Do
          IF MaxEl<=Morfius[i,j] Then
            Begin
              MaxEl:=Morfius[i,j];
              k:=i;
              z:=j
            End;
       Inc(k); Inc(z);
      Writeln;
      Write('Maximalnij element: ', MaxEl:3:0,'; Nomer stroki: ', k);
      Writeln('; Nomer stolbza: ',z);
      Writeln;
    END;

   PROCEDURE Moove_MaxEl;
    Var
      i,j:Integer;
      Temp:Real;
    BEGIN
      For i:=k-1 downto 1  do
       For j:=0 to  M-1 do
        Begin
         Temp:=Morfius[i-1,j];
         Morfius[i-1,j]:=Morfius[i,j];
         Morfius[i,j]:=Temp;
        End;
      For j:=z-1 downto 1  do
       For i:=0 to  N-1 do
        Begin
         Temp:=Morfius[i,j-1];
         Morfius[i,j-1]:=Morfius[i,j];
         Morfius[i,j]:=Temp;
        End;
    END;

BEGIN
  MakeMatrix;
  ShowMatrix;
  Found_MaxEl;
  Moove_MaxEl;
  ShowMatrix;
  Readln;
END.

______________________
<---- Весы Благодарности тма.

[p51x]

Видимо все-таки да... Модеры, может уже пора правила изменить?