Для заданной целой матрицы размером (M*N) напечатать индексы всех ее седловых точек

repeat
write('Vvedite kolichestvo strok ');
readln(x);
until x in [1..nmax];
repeat
write('Kolichestvo stolbcov ');
readln(y);
writeln('    Polyshilas takaia matritsa ');
until y in [1..nmax];
for i:=1 to x do
 begin
  for j:=1 to y do
   begin
    mt[i,j]:=random(50);
    write(mt[i,j]:6);
   end;
  writeln;
 end;
end;
procedure search(mt:Tmatr;x,y:byte;var mx:integer);
var lit: array[1..nmax] of integer;
    i,j:byte;
    k:integer;
begin
writeln('Naimenshie hisla matritsi:');
for i:=1 to x do
 begin
  k:=mt[i,1];
  for j:=1 to y do
  if k > mt[i,j] then k:=mt[i,j];
  writeln('naimenshee iz stroki ',i,'=',k);
  lit[i]:=k;
 end;
writeln;
mx:=lit[1];
for i:=1 to x do
if mx < lit[i] then mx:=lit[i];
writeln('naibolshee iz naimenshih=',mx);
end;
var
  n,m:byte;
  max:integer;
  mas:Tmatr;
begin
clrscr;
Randomize;
Vvod(mas,n,m);
search(mas,n,m,max);
readln;
end.

uses
  crt;
const
  n=3;{ïîðÿäîê ìàòðèöû}
var
  a:array[1..n,1..n]of integer;{ìàòðèöà}
  i,j,k,tempi,tempj,max,min,countsed:integer;
  fl:boolean;
begin
  clrscr;
  {çàïîëíÿåì ìàòðèöó}
  textbold;
  writeln('Èñõîäíàÿ ìàòðèöà:');
  textnormal;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  textbold;
  writeln('Ðåçóëüòàòû:');
  textnormal;
  {îòûñêèâàåì ñåäëîâûå òî÷êè}
  countsed:=0;
  for i:=1 to n do
  begin
    min:=a[i,1];
    tempi:=1;
    tempj:=1;
    for j:=2 to n do
      if a[i,j]<min then
      begin
        min:=a[i,j];
        tempi:=i;
        tempj:=j
      end;
    k:=1;
    fl:=true;
    repeat
      if a[k,tempj]>min then
        fl:=false;
      inc(k)
    until
      (k>n) or (fl=false);
    if fl then
    begin
      textcolor(2);
      writeln('Ýëåìåíò a[',tempi,',',tempj,'] ÿâëÿåòñÿ ñåäëîâîé òî÷êîé');
      inc(countsed)
    end;
  end;
  if countsed=0 then
  begin
    textcolor(4);
    writeln(' çàäàííîé ìàòðèöå ñåäëîâûõ òî÷åê íåò...');
  end
end.

const
  M = 30;  {rows}
  N = 20;  {columns}
var
  row, col : integer;
  array a[1..M,1..N] of integer;
 
function IsSaddle(array a[1..M,1..N] of integer; r,c :integer) : boolean
var
  arc : integer;  {a[r,c]}
  MinRMaxC,  MaxRMinC, result : boolean;
begin
  arc := a[r,c];
  MinRMaxC := (a[r,c-1] > arc) AND (a[r,c+1] > arc) AND (a[r-1,c] < arc) AND (a[r+1,c] < arc);
  MaxRMinC := (a[r,c-1] < arc) AND (a[r,c+1] < arc) AND (a[r-1,c] > arc) AND (a[r+1,c] > arc);
  result := MinRMaxC OR MaxRMinC;
 
  IsSaddle := result;
end;
 
begin
  {input matrix}
  ...............
  for row := 2 to M-1 do
  begin
    for col := 2 to N-1 do
    begin
       if IsSaddle(a, row,col) then
       writeln( row, col);
    end;
  end;
end.

uses
  crt;
const
  str=3;{êîë-âî ñòðîê ìàòðèöû}
  col=3;{êîë-âî ñòîëáöîâ ìàòðèöû}
type
  MyArr=array[1..str,1..col]of integer;
var
  a:MyArr;
  i,j,temp:integer;
{ôóíêöèÿ ìàêñèìóìà äâóõ ÷èñåë}
function Max(a,b:integer):integer;
begin
  if a>b then
    Max:=a
  else
    Max:=b
end;
{ôóíêöèÿ ïðîâåðêè}
function Sed(a:MyArr; s,c,temp:integer):boolean;
var
  i,cmin,cmax,smin,smax:integer;
begin
  smin:=a[s,1]; smax:=smin;
  cmin:=a[1,c]; cmax:=cmin;
  for i:=2 to temp do
  begin
    if i<=col then
    begin
      if a[s,i]>smax then
        smax:=a[s,i];
      if a[s,i]<smin then
        smin:=a[s,i]
    end;
    if i<=str then
    begin
      if a[i,c]>cmax then
        cmax:=a[i,c];
      if a[i,c]<cmin then
        cmin:=a[i,c]
    end;
  end;
  Sed:=((cmin=a[s,c]) and (smax=a[s,c])) or ((cmax=a[s,c]) and (smin=a[s,c]))
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  temp:=Max(str,col);
  {çàïîëíÿåì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
    for j:=1 to col do
      a[i,j]:=random(8)-4;
  {îòûñêèâàåì ñåäëîâûå òî÷êè}
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      if Sed(a,i,j,temp) then
        textcolor(2)
      else
        textcolor(0);
      write(a[i,j]:3,' ')
    end;
    writeln
  end;
end.

uses
  crt;
const
  str=3;{êîë-âî ñòðîê ìàòðèöû}
  col=3;{êîë-âî ñòîëáöîâ ìàòðèöû}
type
  MyArr=array[1..str,1..col]of integer;
{ïîèñê ìèíèìóìà ìàêñèìóìà â ñòðîêå}
procedure FMaxMinStr(a:MyArr; var smin,smax:integer; const s:integer);
var
  i:integer;
begin
  smin:=a[s,1]; smax:=smin;
  for i:=2 to col do
  begin
    if a[s,i]>smax then
      smax:=a[s,i];
    if a[s,i]<smin then
      smin:=a[s,i]
  end;
end;
{ïîèñê ìèíèìóìà ìàêñèìóìà â ñòîëáöå}
procedure FMaxMinCol(a:MyArr; var cmin,cmax:integer; const c:integer);
var
  i:integer;
begin
  cmin:=a[1,c]; cmax:=cmin;
  for i:=2 to str do
  begin
    if a[i,c]>cmax then
      cmax:=a[i,c];
    if a[i,c]<cmin then
      cmin:=a[i,c]
  end;
end;
{ôóíêöèÿ ïðîâåðêè}
function Sed(a:MyArr; s,c,cmin,cmax,smin,smax:integer):boolean;
begin
  Sed:=((cmin=a[s,c]) and (smax=a[s,c])) or ((cmax=a[s,c]) and (smin=a[s,c]))
end;
var
  a:MyArr;
  i,j,temp,cmin,cmax,smin,smax:integer;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  {çàïîëíÿåì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
    for j:=1 to col do
      a[i,j]:=random(8)-4;
  {îòûñêèâàåì ñåäëîâûå òî÷êè}
  for i:=1 to str do
  begin
    FMaxMinStr(a,smin,smax,i);
    for j:=1 to col do
    begin
      FMaxMinCol(a,cmin,cmax,j);
      if Sed(a,i,j,cmin,cmax,smin,smax) then
        textcolor(2)
      else
        textcolor(0);
      write(a[i,j]:3,' ')
    end;
    writeln
  end;
end.

uses
  crt;
const
  str=3;{êîë-âî ñòðîê ìàòðèöû}
  col=3;{êîë-âî ñòîëáöîâ ìàòðèöû}
type
  MyArr=array[1..str,1..col]of integer;
{ïîèñê ìèíèìóìà ìàêñèìóìà â ñòðîêå}
procedure FMaxMinStr(a:MyArr; var smin,smax:integer; const s:integer);
var
  i:integer;
begin
  smin:=a[s,1]; smax:=smin;
  for i:=2 to col do
  begin
    if a[s,i]>smax then
      smax:=a[s,i];
    if a[s,i]<smin then
      smin:=a[s,i]
  end;
end;
{ïîèñê ìèíèìóìà ìàêñèìóìà â ñòîëáöå}
procedure FMaxMinCol(a:MyArr; var cmin,cmax:integer; const c:integer);
var
  i:integer;
begin
  cmin:=a[1,c]; cmax:=cmin;
  for i:=2 to str do
  begin
    if a[i,c]>cmax then
      cmax:=a[i,c];
    if a[i,c]<cmin then
      cmin:=a[i,c]
  end;
end;
{ôóíêöèÿ ïðîâåðêè}
function Sed(a:MyArr; s,c,cmin,cmax,smin,smax:integer):boolean;
begin
  Sed:=((cmin=a[s,c]) and (smax=a[s,c])) or ((cmax=a[s,c]) and (smin=a[s,c]))
end;
var
  a:MyArr;
  i,j,temp,cmin,cmax,smin,smax:integer;
  b:array [1..2,1..col]of integer;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  {çàïîëíÿåì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
    for j:=1 to col do
      a[i,j]:=random(8)-4;
  {ñîçäàåì äîï ìàññèâ}
  for i:=1 to col do
  begin
    FMaxMinCol(a,cmin,cmax,i);
    b[1,i]:=cmin;
    b[2,i]:=cmax
  end;
  {îòûñêèâàåì ñåäëîâûå òî÷êè}
  for i:=1 to str do
  begin
    FMaxMinStr(a,smin,smax,i);
    for j:=1 to col do
    begin
      if Sed(a,i,j,b[1,j],b[2,j],smin,smax) then
        textcolor(2)
      else
        textcolor(0);
      write(a[i,j]:3,' ')
    end;
    writeln
  end;
end.