记录编号 14823 评测结果 AAAAAAAAAAA
题目名称 [USACO Oct09] Bessie 的体重问题 最终得分 100
用户昵称 Gravatarchengyang 是否通过 通过
代码语言 Pascal 运行时间 0.225 s
提交时间 2009-11-05 15:53:05 内存使用 0.28 MiB
显示代码纯文本
program diet(input,output);   
var  
 a:array[1..500]of longint;   
 f:array[0..45000]of longint;   
 i,j,k,v,n:longint;   
begin  
 assign(input,'diet.in');assign(output,'diet.out');   
 reset(input);rewrite(output);   
 readln(v,n);   
 for i:=1 to n do readln(a[i]);   
 fillchar(f,sizeof(f),0);   
 for i:=1 to n do  
  for j:=v downto a[i] do  
   if f[j-a[i]]+a[i]>f[j] then f[j]:=f[j-a[i]]+a[i];   
 writeln(f[v]);   
 close(input);close(output);   
end.