start07 2012-08-06 00:59:00
点我顶贴
收藏
删除
状态: Unaccepted
测评机: Xeost[5]
得分: 60分
提交日期: 2009-1-15 23:08:00
有效耗时: 516毫秒
测试结果1: 通过本测试点|有效耗时172:ms
测试结果2: 通过本测试点|有效耗时172:ms
测试结果3: 测试结果错误.错误结果为:8669
正确结果应为:8275
测试结果4: 通过本测试点|有效耗时172:ms
测试结果5: 测试结果错误.错误结果为:7146
正确结果应为:6653
var n,m,i,j,k,L,x,y,p:longint;
max:longint;
s:array[0..100,0..100]of longint;
begin
read(n);
for i:=1 to n do
for j:=1 to n do begin
read(s[i,j]);
s[i,j]:=s[i,j]+s[i-1,j]+s[i,j-1]-s[i-1,j-1];
end;
max:=-1000000000;
for i:=1 to n do
for j:=i to n do
begin
k:=s[1,j]-s[i-1,1];
if k>max then max:=k;
for p:=2 to n do
begin
if k>0 then
k:=k+s[p,j]-s[p,i-1]-s[p-1,j]+s[p-1,i-1]
else k:=s[p,j]-s[p,i-1]-s[p-1,j]+s[p-1,i-1] ;
if k>max then max:=k;
end;
end;
writeln(max);
end.