记录编号	14689	评测结果	AAAAAAAAAAA
题目名称	[USACO Oct09] Bessie 的体重问题	最终得分	100
用户昵称	.Xmz	是否通过	通过
代码语言	Pascal	运行时间	0.421 s
提交时间	2009-11-03 12:49:02	内存使用	0.37 MiB

program xmz;
var
f1,f2:text;
f:array[0..45000]of longint;
x:array[1..500]of longint;
w,n,a,b:longint;
begin
 assign(f1,'diet.in');assign(f2,'diet.out');
 reset(f1);rewrite(f2);
 read(f1,w,n);
 for a:=1 to n do
  read(f1,x[a]);
 for a:=1 to n do
  for b:=w downto 1 do
   if b>=x[a] then
   if f[b]<f[b-x[a]]+x[a] then f[b]:=f[b-x[a]]+x[a];
 writeln(f2,f[w]);
 close(f1);close(f2);
end.