[CODEVS1014]装箱问题
题目描述 Description
有一个箱子容量为V(正整数,0<=V<=20000),同时有n个物品(0<n<=30),每个物品有一个体积(正整数)。
要求n个物品中,任取若干个装入箱内,使箱子的剩余空间为最小。
输入描述 Input Description
一个整数v,表示箱子容量
一个整数n,表示有n个物品
接下来n个整数,分别表示这n 个物品的各自体积
输出描述 Output Description
一个整数,表示箱子剩余空间。
样例输入 Sample Input
24
6
8
3
12
7
9
7
样例输出 Sample Output
0
var a:array[0..100] of longint; f:array[0..100] of longint; maxx,n,i,j:longint; function max(x,y:longint):longint; begin if x>y then exit(x) else exit(y); end; begin readln(maxx); readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do for j:=maxx downto a[i] do f[j]:=max(f[j-a[i]+a[i],f[j]); writeln(maxx-f[maxx]); end.