codeves天梯 采药

辰辰是个天资聪颖的孩子，他的梦想是成为世界上最伟大的医师。为此，他想拜附近最有威望的医师为师。医师为了判断他的资质，给他出了一个难题。医师把他带到一个到处都是草药的山洞里对他说：“孩子，这个山洞里有一些不同的草药，采每一株都需要一些时间，每一株也有它自身的价值。我会给你一段时间，在这段时间里，你可以采到一些草药。如果你是一个聪明的孩子，你应该可以让采到的草药的总价值最大。” 

如果你是辰辰，你能完成这个任务吗？

分析：就是一道01背包的模版题f[j]=max(f[j],f[j-v[i]]+a[i])==

var
  n,m,i,j:longint;
  f:array[0..1000,0..1000] of longint;
  v,a:array[1..200] of longint;

function max(a,b:longint):longint;
begin
  if a>b then exit(a)
  else exit(b);
end;

begin
  readln(m,n);
  for i:=1 to n do
    readln(v[i],a[i]);
  for i:=1 to n do
    for j:=1 to m do
      if j>=v[i] then f[i,j]:=max(f[i-1,j-v[i]]+a[i],f[i-1,j])
      else f[i,j]:=f[i-1,j];
  writeln(f[n,m]);
end.