var i,j,k,x,y,z,n,s,max,x1,y1,x2,y2:longint;
    a,b:array[0..1000,0..1000]of longint;
begin
  readln(n);
  for i:=1 to n do
    for j:=1 to n do begin
      read(a[i,j]);
      b[i,j]:=b[i,j-1]+a[i,j];
    end;
  max:=0;
  for i:=1 to n do
    for j:=i to n do begin
      s:=0;x:=0;
      for k:=1 to n do begin
        s:=s+b[k,j]-b[k,i-1];
        if s>max then begin
          max:=s;
          x1:=x;x2:=k;
          y1:=i;y2:=j;
        end;
        if s<0 then begin s:=0;x:=k+1;end;
      end;
    end;
  writeln(max);
end.

• Re:鄙视暴力！！其实我也16MS~~DP代码 不准抄袭， (1449) cyforever 2010-08-12 17:04:20