槟榔 2011-10-07 22:02:00
点我顶贴
收藏
删除
var t,n,i,j:integer;
m:array [1..100,1..2] of integer;
x:array[0..100,0..1000] of integer;
begin
readln(t,n);
for i:= 1 to n do readln(m[i,1],m[i,2]);
for i:= 1 to n do
for j:=1 to t do
if (j>m[i,1]) and (x[i-1,j] < x[i-1,j-m[i,1]]+m[i,2]) then
x[i,j]:=x[i-1,j-m[i,1]]+m[i,2] else x[i,j]:=x[i-1,j];
writeln(x[n,t]);
end.