Найти максимальный элемент и все элементы, расположенные в одной строке и в одном столбце матрицы - Turbo Pascal - Ответ 7253771

uses
  crt;
const
  Nmax = 50;
type
  TMatr = array[1..Nmax] of array[1..Nmax] of integer;
var
  A : TMatr;
  i, j, k, z, n, max : integer;
  bol : boolean;
begin
  clrscr;
  repeat
  write('n = '); readln(n);
  until n in [1..Nmax];
  randomize;
  for i := 1 to n do
    for j := 1 to n do begin
     repeat
      //write('A[',i,',',j,'] = ');readln(A[i,j]);
      A[i,j] := random(100) - 30;
 
      bol := true;
 
      for k := 1 to i-1 do
        for z := 1 to n do
          if A[k,z] = A[i,j] then bol := false;
 
      for k := 1 to j-1 do
        if A[i,k] = A[i,j] then bol := false;
     until bol;
    end;
 
    for i := 1 to n do begin
      for j := 1 to n do
        write(A[i,j]:5);
      writeln;
    end;
 
    k := 1; z := 1;
    for i := 1 to n do
      for j := 1 to n do
        If A[i,j] > A[k,z] then begin
          k := i; z := j;
        end;
    writeln('max element A[',k,',',z,'] = ',A[k,z]);
 
    for i := 1 to n do If i<>z then A[k,i] := 0;
 
    for i := 1 to n do If i<>k then A[i,z] := 0;
 
    for i := 1 to n do begin
      for j := 1 to n do
        write(A[i,j]:5);
      writeln;
    end;
  readln;
end.