PASCAL找马鞍数问题是这样的：给定一个n*n数字方阵,求其中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列上最大的数.输入：第一行为n的值(n

PASCAL找马鞍数问题是这样的：给定一个n*n数字方阵,求其中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列上最大的数.输入：第一行为n的值(n
PASCAL找马鞍数
问题是这样的：
给定一个n*n数字方阵,求其中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列上最大的数.
输入：
第一行为n的值(n

PASCAL找马鞍数问题是这样的：给定一个n*n数字方阵,求其中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列上最大的数.输入：第一行为n的值(n
我的程序.希望采纳
var a:array[1..100,1..100] of integer;
x,y:array[1..100]of integer;
n,i,j:integer;
t:boolean;
begin
t:=false;
read(n);
for i:=1 to n do
begin
x[i]:=maxint;
y[i]:=-maxint;
end;
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
if a[i,j]y[j] then y[j]:=a[i,j];
for i:=1 to n do
for j:=1 to n do
if (a[i,j]=x[i])and(a[i,j]=y[j]) then
begin
t:=true;
writeln(i);
writeln(j);
end;
if not(t) then writeln('no');
end.