p1133.pas

www.vijos.cn上一些习题的参考源码

program p1133;
const
	MAXV=20000;
	MAXN=30;
var
	f0,f1:array[0..MAXV] of boolean;
	i,j:integer;
	v,n:integer;
	box:array[1..MAXN] of integer;
begin
	readln(v);
	readln(n);
	for i:=1 to n do
		readln(box[i]);
	
	{f0[0]:=true;
	for i:=1 to n do begin
		f1:=f0;
		for j:=box[i] to v do begin
			if f0[j-box[i]] then f1[j]:=true;
		end;
		f0:=f1;
	end;
	
	for i:=v downto 0 do
		if f1[i] then begin
			writeln(v-i);
			halt;
		end;}
end.