zsw2 2010-07-10 20:47:00
点我顶贴
收藏
删除
Var
w:array[1..30] of longint;
n,i,max,maxv:longint;
procedure put(i,v:longint);
begin
if (i>n) or (v+w[i]>maxv) then
begin
if v>max then max:=v;
exit;
end;
put(i+1,v);
put(i+1,v+w[i]);
end;
begin
max:=0;
readln(maxv);
readln(n);
for i:=1 to n do readln(w[i]);
put(1,0);
writeln(maxv-max);
end.
很奇怪,自己测都对,提交上去就错了!
请大家指点!!!!!