主题:帮忙编个程
菜鸟横江
[专家分:0] 发布于 2005-09-03 19:55:00
5×5的二维数组,找马鞍数(即一行中最小,而在列中最大的数)
各位大侠帮个忙,谢谢,有加分
回复列表 (共4个回复)
沙发
菜鸟横江 [专家分:0] 发布于 2005-09-03 19:50:00
麻烦帮个忙,谢谢
板凳
lzl1403 [专家分:1670] 发布于 2005-09-03 21:53:00
for i:=1 to 5 do
for j:=1 to 5 do
begin
if j=1 then t:=a[i,j];{数组a为5*5的二维数组}
if a[i,j]<=t
then begin
t:=a[i,j];
f:=true;{找到马鞍数的标志}
for k:=1 to 5 do
if a[k,j]>a[i,j]
then f:=false;
if f then writeln(i,' ',j,' ',a[i,j]);{输出行、列、数值}
end;
end;
3 楼
菜鸟横江 [专家分:0] 发布于 2005-09-04 08:33:00
麻烦解释一下
if j=1 then t:=a[i,j];{数组a为5*5的二维数组}
if f then writeln(i,' ',j,' ',a[i,j]);{输出行、列、数值}
4 楼
风花雪月☆雨 [专家分:460] 发布于 2005-09-04 08:58:00
if f then writeln(i,' ',j,' ',a[i,j]);{输出行、列、数值}
这个不是解释的很清楚吗?
我来回复