Mooo Moo（dp）

题意：

FJ 已经完全忘记了他有多少头奶牛！但是，跑到他的草场里数奶牛是一件很尴尬的事情，因为他不想让奶牛们知道他记忆有问题。作为替代，他决定秘密地把麦克风种在奶牛们通常聚集的草场里，然后只要从他听到的哞哞声音量中确定奶牛的数目即可。
FJ 的N 块草场（1 <= N <= 100）沿着一条笔直的路排成了一排。每块草场里可能有若干种不同的奶牛；FJ 的奶牛总共有B 种不同的种类（1 <= B <= 20），并且种类i 的一头奶牛叫起来的音量为V (i)（1 <= V (i) <= 100）。再者，沿着道路有一股强悍的风在吹，将哞哞叫的声音从路的左边传到右边：如果在某草场哞哞叫声音量为X，那么在下一个草场里会听到上边X -1 音量的叫声（并且在再下一个草场是X -2，等等）。更正式地说，一个草场的哞哞叫总音量为这个草场里奶牛哞哞的音量之和，加上X -1，这里X 是上一个草场的哞哞叫总音量。
给定FJ 从每个草场里记录的哞哞音量，请帮助他计算出他所拥有的奶牛的可能的最少数量。
任何一个草地上记录的音量值不超过100,000

思路：

设一个f，f[i]有i的声音的最少奶牛数。
f[i]=max(f[i-a[j]]+1)

源程序：

const
 maxn=1000000;
var
 i,j,n,m,x,y:longint;
 ans:int64;
 f,a:array [0..maxn] of longint;

function max(x,y:longint):longint;
begin
 if x<y then exit(y)
        else exit(x);
end;

function min(x,y:longint):longint;
begin
 if x<y then exit(x)
        else exit(y);
end;


begin
 readln(n,m);
 for i:=1 to m do
  readln(a[i]);
 fillchar(f,sizeof(f),$7f);
 f[0]:=0;
 for i:=1 to 100000 do
  for j:=1 to m do
   if a[j]<=i then
   f[i]:=min(f[i],f[i-a[j]]+1);

 for i:=1 to n do
 begin
  readln(x);
  ans:=ans+f[x-y];
  y:=max(0,x-1);
 end;
 writeln(ans);
end.