关闭

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

标签: integerinput
2565人阅读 评论(1) 收藏 举报
{
求一个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 
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:17380次
    • 积分:377
    • 等级:
    • 排名:千里之外
    • 原创:16篇
    • 转载:1篇
    • 译文:3篇
    • 评论:4条
    文章分类
    最新评论