Найдите количество седловых точек заданной матрицы - Pascal - Ответ 8939261

const nn=750; mm=750;
var
  r: array [1..nn] of Integer;
  c: array [1..mm] of Integer;
  n, m, i, j, k: Integer;
  s: Longint;
begin
  ReadLn(n,m); s:=0;
  for i:=1 to n do begin
    for j:=1 to m do begin
      Read(k);
      if (j=1) or (r[i]>k) then r[i]:=k; { min i-й строки }
      if (i=1) or (c[j]<k) then c[j]:=k; { max j-го столбца }
   end; ReadLn;
  end;
  for i:=1 to n do for j:=1 to m do Inc(s,Ord(r[i]=c[j]));
  WriteLn(s);
end.

const nn=750; mm=750;
var
  r: array [1..nn] of Integer;
  c: array [1..mm] of Integer;
  n, m, i, j, k: Integer;
  s: Longint;
begin
  Read(n,m); s:=0;
  for i:=1 to n do
    for j:=1 to m do begin
      Read(k);
      if (i=1) or (r[i]>k) then r[i]:=k; { min i-й строки }
      if (j=1) or (c[j]<k) then c[j]:=k; { max j-го столбца }
     end;
  for i:=1 to n do for j:=1 to m do Inc(s,r[i]=c[j]);
  WriteLn(s);
end.