摆花

前言
“刀锋所划之地，便是粪土（疆土）。”今天，嘟嘟老师来讲一道很考验思维的题——摆花。
题目描述

输入

输出

样例输入
2 4 3 2
样例输出
2

思路
此题是一道很明显的DP，但是此题的动态转移方程（递推关系式）非常难推想得到，连嘟嘟老师第一次也也没想出来。此题用一个三重循环，f【i，j】表示前i种花共j盆的方案数。而我们还要枚举k，表示第i种花种了k盆。那么f【i，j】就等于f【i，j】+f【i-1，j-k】。i-1表示前一种花的方案，j-k表示要种几盆。最后输出f【n，m】就行了。
一大波代码正在来袭……
代码

var
        a:array[1..100] of longint;
        f:array[0..100,-100..100] of longint;
        i,j,k,n,m:longint;
begin
        assign(input,'flower.in');reset(input);
        assign(output,'flower.out');rewrite(output);
        read(n,m);
        for i:=1 to n do
                read(a[i]);
        f[0,0]:=1;
        for i:=1 to n do
        begin
                f[i,0]:=1;
                for j:=1 to m do
                begin
                        for k:=0 to a[i] do
                                f[i,j]:=(f[i,j]+f[i-1,j-k]) mod 1000007;
                end;
        end;
        write(f[n,m]);
        close(input);
        close(output);
end.