题目描述 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[..] of longint;
f:array[..] 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:= to n do read(a[i]);
for i:= 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.