记录编号 133807 评测结果 AAAAAAAAAAA
题目名称 待售干草 最终得分 100
用户昵称 Gravatar传奇 是否通过 通过
代码语言 Pascal 运行时间 0.919 s
提交时间 2014-10-28 20:33:59 内存使用 0.54 MiB
显示代码纯文本
program cojs946;
var
  f,a:array[0..50000] of longint;
  i,j,k,m,n:longint;
begin
  assign(input,'hay4sale.in');
  assign(output,'hay4sale.out');
  reset(input);
  rewrite(output);

  readln(m,n);
  for i:=1 to n do
    begin
      readln(a[i]);
      if a[i]=m then
        begin
          writeln(m);
          halt;
        end;
    end;
  for i:=1 to n do
    for j:=m downto a[i] do
      if f[j-a[i]]+a[i]>f[j] then
        f[j]:=f[j-a[i]]+a[i];
  writeln(f[m]);

  close(input);
  close(output);
end.