vijos p1104(采药)（0-1背包）

今天DP第二道题，采药，其实就是背包问题，不知道要是没看教程会不会做，但是没有看源码编出来，也算是一个不小的进步，嘿嘿。

program P1104;
uses math;
var
        t,v:array[1..1001] of longint;
        f:array[0..1001,0..1001]of longint;
        t1,m,i,j,k,l:longint;
begin
        fillchar(f,sizeof(f),0);
        read(t1,m);
        for i:=1 to m do
        read(t[i],v[i]);
        for i:=1 to m do
                for j:=1 to t1 do
                if j>=t[i] then
                f[i,j]:=max(f[i-1,j-t[i]]+v[i],f[i-1,j])
                else f[i,j]:=f[i-1,j];
        write(f[m,t1]);
end.