{
求一个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/blog/d-158938.html