На главную диагональ матрицы поместить наибольшие элементы - Pascal - Ответ 437586

program kkr3;
uses crt;
var
  A: array [1..100,1..100] of integer;
  i,j,k,n,imax,jmax,c,max: integer;
begin
  clrscr;
  write('Введите число строк и столбцов матрицы: ');
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('Введите элемент (',i,' ',j,'): ');
        readln(A[i,j]);
      end;
  k:=1;
  while k <= n do
    begin
      max:=A[k,k];
      for i:=1 to n do
        for j:=1 to n do
          begin
            if ((A[i,j] > max) and (i<>j)) then
              begin
                max:=A[i,j];
                imax:=i;
                jmax:=j;
              end;
          end;
      c:=A[k,k];
      A[k,k]:=max;
      A[imax,jmax]:=c;
      k:=k+1;
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(A[i,j],' ');
      writeln;
    end;
  readkey
end.