变音量

[问题描述]
你将要在元旦演奏一场吉他专场。但你不希望声音平淡，所以你希望每个曲之间都有变化。现在你已经确定了每个曲可以与上一个曲之间的音量的变化量，即每首曲开始，你可以对音量选择增加或减少一个指定的变化值。当然音量不可能为负数，也不能太高，因此必需保证每首曲音量在0和maxLevel之间（包含）。
你的任务是，根据已有的开始音量beginLevel 和每首曲之间的变化量，求出最后一首曲的最大可能音量。如果没有方案，输出 -1。
［输入文件：song.in］
文件第一行有三个整数，n, beginLevel, maxLevel，分别表示曲目数，开始量，最大限制音量。
下面有n-1行整数，第i行整数表示第i首曲与第i+1首曲之间的变化量。
［输入文件：song.in］
文件只一行一个数，答案。

[题解]

判定性DP.

[代码]

var  f:array[0..100,-2000..2000] of boolean;  n,start,max,i,j,jj:longint;  a:array[0..100] of longint;begin  assign(input,'song.in');  assign(output,'song.out');  reset(input);  rewrite(output);  readln(n,start,max);  for i:=1 to n-1 do    readln(a[i+1]);  fillchar(f,sizeof(f),false);  f[1,start]:=true;  for i:=2 to n do    for j:=0 to max do      begin        if j-a[i]>=0 then          f[i,j]:=f[i-1,j-a[i]];       if j+a[i]<=max then         f[i,j]:=f[i,j] or f[i-1,j+a[i]];     end;  jj:=-1;  for j:=max downto 0 do    if f[n,j] then      begin        jj:=j;        break;      end;  writeln(jj);  close(input);  close(output);end.