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
-
-
四联疗法的用法及用量是怎样的？
489人阅读
-
南通文峰妇科坑人？
30人阅读
-
牙齿感觉有电一样是怎么回？
63人阅读
-
转轮术是什么意思
0人阅读
-
什么方法增高会对身体有伤害？
100人阅读
相关推荐
加载中...