乖的古灵猫 2010-11-09 00:56:00
点我顶贴
收藏
删除
Program N15;
Var
t,m:integer;
tt,mm:array[0..100] of integer;
f:array[0..100,0..1000] of integer;
a,b,c:integer;
function max(x,y:integer):integer;
begin
if x>=y then max:=x
else max:=y;
end;
begin
readln(t,m);
for a:=1 to m do
read(tt[a],mm[a]);
for a:=1 to m do
for b:=1 to t do
begin
if b>tt[a] then
begin
f[a,b]:=max(f[a-1,b],f[a-1,b-tt[a]]+mm[a]);
end
else f[a,b]:=f[a-1,b];
end;
write(f[m,t]);
end.