编程高手的请进.描述Description求一个5X5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列上最大的数.输入格式InputFormat一个5行5列的矩阵输出格式OutputFormat马鞍数的位

Question

编程高手的请进.
描述 Description
求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列上最大的数.
输入格式 Input Format
一个5行5列的矩阵
输出格式 Output Format
马鞍数的位置（坐标用括号括起来）及马鞍数（用冒号隔开）,如果不存在输出“no”.
样例输入 Sample Input
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
样例输出 Sample Output
(1,1):5
program maan;
var x:array[1..5,1..5] of integer;
a,b,c,d,i,k,l,e,f,g,s,min,max:integer;
begin
s:=0;
for i:=1 to 5 do
begin
for k:=1 to 5 do read(x[i,k]);readln;
end;
min:=32767;max:=-32767;
for i:= 1 to 5 do
begin
for k:=1 to 5 do
begin
for e:=1 to 5 do
begin
if x[i,k]max then begin max:=x[k,i];c:=k;d:=i; end;
end;
end;
if (a=c)and(b=d) then begin writeln('(',a,',',b,')',':',x[a,b]);s:=s+1; end;
end;
if s=0 then writeln('no');
end.
总是有点不对劲,比如当方阵里面全是一的时候.

Answer 1

老大,标题里说上是什么语言啊,我只会c / c++/ java,帮补了你拉!