什么鬼，，，
全裸01背包嘛

这就是裸的背包问题啊……
program vijos(input,output);

const
maxn=100;
maxt=1000;

var
n,t,i,j:integer;
f,m:array[1..maxn] of integer;
d:array[0..maxt] of integer;

begin

readln(n);
readln(t);
for i:=1 to n do
readln(f[i],m[i]);

for i:=1 to n do
for j:=t downto m[i] do
if d[j]<f[i]+d[j-m[i]] then
d[j]:=f[i]+d[j-m[i]];

writeln(d[t]);

end.

这种水题用滚动数组？你在逗我吗？