2、求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列是电脑编程问题，用Pascal回答。

2、求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列是电脑编程问题，用Pascal回答。
2、求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列
是电脑编程问题，
用Pascal回答。

2、求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列是电脑编程问题，用Pascal回答。
var
a:array [1..5,1..5] of integer;
b,c:array [1..5] of integer;
i,j,k:byte; f:boolean;
begin
for i:=1 to 5 do for j:=1 to 5 do read(a[j,i]);
for i:=1 to 5 do begin
b[i]:=a[i,1]; c[i]:=a[1,i];
for j:=2 to 5 do begin
if a[i,j]>b[i] then b[i]:=a[i,j];
if a[j,i]