记录编号 41355 评测结果 AAAAAAAAAAA
题目名称 待售干草 最终得分 100
用户昵称 Gravatardigital-T 是否通过 通过
代码语言 Pascal 运行时间 0.780 s
提交时间 2012-07-22 11:50:31 内存使用 0.26 MiB
显示代码纯文本
var
c,h,i,j,k,max:longint;
f:array[0..100000]of boolean;
begin
assign(input,'hay4sale.in');reset(input);
assign(output,'hay4sale.out');rewrite(output);
fillchar(f,sizeof(f),false);
read(c,h);
f[0]:=true;
max:=0;
for i:=1 to h do
 begin
  readln;
  read(k);
  for j:=max downto 0 do
   if f[j] then
    begin
     f[j+k]:=true;
     if j+k>max then max:=j+k;
    end;
  if max>c then max:=c;
 end;
if max<=c then write(max)
else
 for i:=c downto 0 do
  if f[i] then
   begin
    write(i);
    break;
   end;

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