问题描述:
free pascal 马鞍数
c:array[1..5,1..5] of integer; i,n,y,s:integer;begin y:=0; for n:= 1 to 5 do for i:= 1 to 5 do read (c[n,i]); for n:=1 to 5 do for i:=1 to 5 do begin for s:= 1 to 5 do begin if c[n,i] <= c[n,s] and c[n,i] >= c[s,i] then y:=y+1; end; if y=5 then writeln(n,',',i); y:=0; end; readln;readln;end.这个程序问题在哪里?
c:array[1..5,1..5] of integer; i,n,y,s:integer;begin y:=0; for n:= 1 to 5 do for i:= 1 to 5 do read (c[n,i]); for n:=1 to 5 do for i:=1 to 5 do begin for s:= 1 to 5 do begin if c[n,i] <= c[n,s] and c[n,i] >= c[s,i] then y:=y+1; end; if y=5 then writeln(n,',',i); y:=0; end; readln;readln;end.这个程序问题在哪里?
问题解答:
我来补答展开全文阅读