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]

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]
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[s,i]
then y:=y+1;
end;
if y=5 then writeln(n,',',i);
y:=0;
end;
readln;readln;
这个程序的问题在哪里?
最后还有个end.
帮忙吧!谢

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]
我刚刚学过……
1.if c[n,i] = c[s,i] 是不对的……
应该是 if （c[n,i] = c[s,i]）
两个条件要用括号
改后编译通过……测试数据正确
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
则1行1列上的数就是马鞍数.
我也是菜鸟,
对了,你头上上了个Var