Найти в каждой строке наибольший элемент и поменять с элементом побочной матрицы

[kaznachey1993]

Найти в каждой строке наибольший элемент и поменять с элементом побочной матрицы

[ByAlex]

Сообщение от kaznachey1993

Найти в каждой строке наибольший элемент и поменять с элементом побочной матрицы

Алгоритм такой -
1) идешь по каждой строке и находишь максимальный элемент
2) после этого меняешь его с элементом массива на побочной диагонали - Arr[i,n] (n - это размерность матрицы).
3) уменьшаешь n на 1.
И так далее по такому же алгоритму.

[kaznachey1993]

Я алгоримт знаю мне код нужен!

[ByAlex]

Сообщение от kaznachey1993

Я алгоримт знаю мне код нужен!

Остальное, думаю, сможешь!

t:=n;
  for i:=1 to n do
  begin
     max:=Arr[i,1];
     maxj:=1;
     for j:=1 to n do
     begin
        if Arr[i,j]>max then
        begin
           max:=Arr[i,j];
           maxj:=j;
        end;
      end;
     temp:=Arr[i,maxj];
     Arr[i,maxj]:=Arr[i,t];
     Arr[i,t]:=temp;
     dec(t);
  end;

[kaznachey1993]

плз напиши всю поставлю +3

[ByAlex]

Сообщение от kaznachey1993

плз напиши всю поставлю +3

Держи -

program Project1;

uses
  SysUtils;
const
  n=5;
var
  Arr:array[1..n,1..n] of Integer;
  i,j,t,maxj,max,temp:Integer;
begin
  writeln('Matrix is - ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Arr[i,j]:=Random(30)-10;
      write(arr[i,j],' ');
    end;
    Writeln;
  end;
  t:=n;
  for i:=1 to n do
  begin
     max:=Arr[i,1];
     maxj:=1;
     for j:=1 to n do
     begin
        if Arr[i,j]>max then
        begin
           max:=Arr[i,j];
           maxj:=j;
        end;
      end;
     temp:=Arr[i,maxj];
     Arr[i,maxj]:=Arr[i,t];
     Arr[i,t]:=temp;
     dec(t);
  end;
  Writeln;
  writeln('Result matrix - ');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(Arr[i,j],' ');
    writeln;
  end;
  readln;
end.