记录编号 | 14823 | 评测结果 | AAAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | [USACO Oct09] Bessie 的体重问题 | 最终得分 | 100 | ||
用户昵称 | chengyang | 是否通过 | 通过 | ||
代码语言 | 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.