wm3_xiaotian 2012-08-06 01:34:00
点我顶贴
收藏
删除
program Ym_4;
var i,j,k,u,o,ans,n :longint;
a,f:array[0..101,0..101]of longint;
s:array[0..101]of longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a)
else exit(b);
end;
begin
readln(n);
ans:=0;
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
f[i,j]:=0;
end;
for i:=1 to n do
for j:=1 to n do
f[i,j]:=f[i,j-1]+a[i,j];
for i:=1 to n do
for j:=i to n do
for k:=1 to n do
begin
u:=f[k,j]-f[k,i-1];
s[k]:=max(s[k-1]+u,u);
ans:=max(s[k],ans);
end;
writeln(ans);
end.