pascal数组问题
求一个n*n的方阵的马鞍数，并输出他的位置。所谓马鞍数，在行上最小而在列上最大。
全部回答
程序如下：
var i,j,n,m,l:integer;
pd:boolean;
a:array[1。。100,1。。100] of integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]); {读数部分}
for i:=1 to n do begin
l:=1;m:=a[i,1];pd:=true; {赋初值，l为列号}
for j:=2 to n do
if m>a[i,j] then begin m:=a[i,j];l:=j end; {找出行上最小的数}
for j:=1 to n do
if m<a[j,i] then pd:=false; {判断其是否列上最大}
if pd then writeln(a[i,l],i:4,l:4); {如果列上最大则为马鞍数，输出}
end
end。
。
。
类似问题换一批
热点推荐
热度TOP
-
-
-
-
医院的任务是什么？
195人阅读
-
大岭山男科哪里看的好
0人阅读
-
成都哪家医院做人流好选棕南?
48人阅读
相关推荐
加载中...