pascal语言：输入一个5*5的数组,输出马鞍数的位置.马鞍数是指它所在那一行最小,你一列最大的数.如输入：1 2 3 4 52 3 4 5 63 4 5 6 74 5 6 7 85 6 7 8 9则输出：（5,1）

pascal语言：输入一个5*5的数组,输出马鞍数的位置.马鞍数是指它所在那一行最小,你一列最大的数.如输入：1 2 3 4 52 3 4 5 63 4 5 6 74 5 6 7 85 6 7 8 9则输出：（5,1）
pascal语言：输入一个5*5的数组,输出马鞍数的位置.
马鞍数是指它所在那一行最小,你一列最大的数.
如输入：
1 2 3 4 5
2 3 4 5 6
3 4 5 6 7
4 5 6 7 8
5 6 7 8 9
则输出：（5,1）

pascal语言：输入一个5*5的数组,输出马鞍数的位置.马鞍数是指它所在那一行最小,你一列最大的数.如输入：1 2 3 4 52 3 4 5 63 4 5 6 74 5 6 7 85 6 7 8 9则输出：（5,1）
var a:array[1..5,1..5] of integer;
    i,j,max,ij,x,y:integer;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        read(a[i,j]);
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        begin
        max:=a[i,1];
        for ij:=2 to 5 do
            if max>a[i,ij] then begin
                                max:=a[i,ij];
                                x:=i;
                                y:=j;
                                end;
        if max=a[i,1] then begin x:=i;y:=j; end;
        for ij:=2 to 5 do
            if  max<a[ij,j] then max:=0;
        if max<>0 then break;
        end;
    if max<>0 then break;
    end;
if max=0 then writeln('no')
         else writeln('(',x,',',y,')',':',max);
end.