讨论 / 为什么只有60分的
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.

#1 yangyawei@2012-08-06 00:59:00
回复 删除
不知道
查看更多回复
提交回复