Description
在幻想乡，射命丸文是以偷拍闻名的鸦天狗。当然，文文的照相机可不止能够照相，还能够消除取景框里面所有的弹幕。假设现在文文面前有一块N行M列的弹幕群，每一个单位面积内有分值有num[i][j]的弹幕。相机的取景框可以将一块R行C列的弹幕消除，并且得到这一块区域内所有弹幕的分值(累加)。现在文文想要取得尽可能多的分值，请你计算出她最多能够得到的分值。
Input
第1行：4个正整数N,M,R,C 第2..N+1行：每行M个正整数，第i+1行第j个数表示num[i][j]
Output
第1行：1个整数，表示文文能够取得的最大得分
题解 预处理出每个点向左上方的和，然后暴力得正解。 如何求R,C的矩形呢？设预处理的数组为a，则（a[i,j]-a[i,j-r]-a[i-l,j]+a[i-l,j-r]）就是了。
代码
var n,m,l,r,ans:longint; a:array [0..1001,0..1001] of longint; procedure init; var i,j:longint; begin readln(n,m,l,r); for i:=1 to n do begin for j:=1 to m do read(a[i,j]); readln; end; for i:=1 to n do for j:=1 to m do a[i,j]:=a[i,j]+a[i-1,j]+a[i,j-1]-a[i-1,j-1]; end; function max(o,p:longint):longint; begin if o>p then exit(o); exit(p); end; procedure main; var i,j:longint; begin ans:=0; for i:=l to n do for j:=r to m do ans:=max(ans,a[i,j]-a[i,j-r]-a[i-l,j]+a[i-l,j-r]); write(ans); end; begin init; main; end.