求一个5×5数阵中的马鞍数

{
求一个5×5数阵中的马鞍数。输出它的位置。
所谓 马鞍数，是指在行上最小而在列上最大的数。
如下列的在第一行，第一列上的数就是马鞍数
5　6　7　8　9
4　5　6　7　8
3　4　5　2　1
2　3　4　9　0
1　2　5　4　8　

}
program ex01;
var m:array[1..5,1..5] of integer;
  p,q,i,j,Hminn,Hmin,lmaxn,lmax;integer;
  ma:bealoon;
begin
//input
writeln('Input 5*5 array:');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(m[j,i]);
end;
readln;
end;
//enter
for i:=1 to 5 do begin
for j:=1 to 5 do begin
write(m[j,i]);
end;
writeln;
end;
//start
for i:=1 to 5 do begin
     Hmin:=maxint;
     hminn:=0;
           //hangzhongmin
     for j:=1 to 5 do begin
           if m[j,i]<hmin then begin
                 hmin:=m[j,i];
                 hminn:=j;
           end;
     end;
     //lmax:=-maxint;?
     //lmaxn:=0;?
     ma:=true;
     for p:=1 to 5 do begin
           if m[hminn,p]>hmin then ma:=false;
     end;
     if ma=true then writeln(hminn,',',i,',',hmin);
end;
readln;
end.

原创文章如转载，请注明：转载自 夏寒在线 [ http://everstray.blog.zj.com/ ]
本文链接地址： http://everstray.blog.zj.com/blog/d-158938.html