记录编号	15054	评测结果	AAAAAAAAAAA
题目名称	[USACO Oct09] Bessie 的体重问题	最终得分	100
用户昵称	bly1991	是否通过	通过
代码语言	Pascal	运行时间	0.629 s
提交时间	2009-11-09 17:05:07	内存使用	0.29 MiB

program bly(input,output);
var
  f:array[0..45000] of longint;
  data:array[1..500] of longint;
  h:longint;
  i,j,n:longint;
  f1,f2:text;

  function max(x,y:longint):longint;
  begin
    if x>=y then max:=x
            else max:=y;
  end;
begin
  assign(f1,'diet.in');
  reset(f1);
  readln(f1,h,n);
  for i:=1 to n do read(f1,data[i]);
  close(f1);

  for i:=1 to n do begin
    for j:=h downto 0 do begin
      if j-data[i]>=0 then f[j]:=max(f[j],f[j-data[i]]+data[i]);
    end;
  end;

  assign(f2,'diet.out');
  rewrite(f2);
  writeln(f2,f[h]);
  close(f2);
end.