題目描述

如果矩陣A中存在這樣的一個(gè)元素A[i,j]滿足條件:A[i,j]是第i行中值最小的元素,且又是第j列中值最大的元素，則稱之為該矩陣的一個(gè)馬鞍點(diǎn)。請(qǐng)編程計(jì)算出m*n的矩陣A的所有馬鞍點(diǎn)。

輸入格式

第一行輸入N，接下來N行，每行N個(gè)數(shù)字

輸出格式

馬鞍點(diǎn)所在的行列。

代碼

var c:array[1..1000,1..1000] of integer;
    min:array[1..1000] of integer;
    max:array[1..1000] of integer;
    i,j,n,y:integer;
begin
  readln(n);
  for i:= 1 to n do
    for j:= 1 to n do
      read (c[i,j]);
      
  for i:=1 to n do
  begin
    y:=c[i,1];
    min[i]:=1;
    
    for j:=1 to n do begin 
    if(c[i,j] < y) then
        begin 
                y:=c[i,j];
                min[i]:=j;
         end;
    end;
  end;
    
 for j:=1 to n do begin 
        y:=c[1,j];
        max[j]:=1;
 for i:=1 to n do
  begin
    if(c[i,j]>y) then
        begin 
                y:=c[i,j];
                max[i]:=i;
         end;
  end;
end;
    
for i:=1 to n do

    if(max[min[i]]=i) then
    writeln(i,min[i]);
   
    
  readln;
 
end.