#3 Wych@2009-06-01 05:33:00
11769
回复
删除
把我的代码发一下,很简单请大家找找错,错误如题:
program rq106(input,output);
var i,j,k,n,m,ans,s :longint;
a :array [0..250,0..250] of longint;
begin
fillchar(a,sizeof(a),0);
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
read(m);
a[i,j]:=a[i,j-1]+m;
end;
readln;
end;
ans:=0;
for i:=1 to n do
for j:=1 to i do
begin
s:=0;
for k:=1 to n do
begin
s:=s+a[k,i]-a[k,j-1];
if s>ans then ans:=s;
if s<0 then s:=0;
end;
end;
write(ans);
end.
#4 asce@2009-07-04 22:41:00
12161
回复
删除
是数据有点问题,就是读入的时候如果不加readln就能ac,加了就错最后一个点.可能是大数据的问题吧.
总之把读入改成for i:=1 to n do
for j:=1 to n do read(a[i,j]);就行了