geng 2012-01-15 01:34:00
点我顶贴
收藏
删除
program fdsl;
var j1,j2,k1,k2,ans,c,d,n,m,i,j,k,l,h,x:longint;
a,s,f:array[0..33,0..51,0..51] of longint;
begin
assign(input,'k.in');
reset(input);
readln(h,m,n);
for i:=1 to h do
for j:=1 to m do
begin
for k:=1 to n do
begin
read(x);
a[i,j,k]:=x;
end;
readln;
end;
for i:=1 to h do
for j:=1 to m do
for k:=1 to n do
s[i,j,k]:=s[i,j,k]+s[i,j-1,k]+s[i,j,k-1]-s[i,j-1,k-1]+a[i,j,k];
ans:=0;
for j:=1 to m do
for k:=1 to n do
for j1:=j to m do
for k1:=k to n do
begin
c:=0;
for i:=1 to h do
begin
c:=c+s[i,j1,k1]-s[i,j-1,k1]-s[i,j1,k-1]+s[i,j-1,k-1];
if c<0 then
c:=0;
if c>ans then
ans:=c;
end;
end;
writeln(ans);
close(input);
end.