[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.