回 帖 发 新 帖 刷新版面

主题:帮忙编个程

5×5的二维数组,找马鞍数(即一行中最小,而在列中最大的数)
各位大侠帮个忙,谢谢,有加分

回复列表 (共4个回复)

沙发

麻烦帮个忙,谢谢

板凳

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 楼

麻烦解释一下
if j=1 then t:=a[i,j];{数组a为5*5的二维数组}

if f then writeln(i,' ',j,' ',a[i,j]);{输出行、列、数值}
  

4 楼

if f then writeln(i,' ',j,' ',a[i,j]);{输出行、列、数值}

这个不是解释的很清楚吗?

我来回复

您尚未登录,请登录后再回复。点此登录或注册