题解：http://hi.baidu.com/lydrainbowcat/blog/item/fbe8db6687c3b332aa184c65.html

var
 f:array[0..30000]of boolean;
 d:array[0..30000]of longint;
 a:array[0..100]of longint;
 b:array[0..100]of double;
 sum:double;
 n,i,j:longint; 
procedure print(x:longint);
 begin
  if x=0 then exit;
  print(x-a[d[x]]);
  if x<>i then write(d[x],' ') else writeln(d[x]);
 end;
begin
 repeat
  readln(n);
  if n=0 then exit;
  sum:=0;
  for i:=1 to n do
   begin
    readln(b[i]);
    sum:=sum+b[i];
   end;
  for i:=1 to n do
   a[i]:=trunc((b[i]/sum)*20000);
  fillchar(f,sizeof(f),0);
  f[0]:=true;
  for i:=1 to n do
   for j:=10000 downto 0 do
    if f[j] and not f[j+a[i]] then
     begin
      f[j+a[i]]:=true;
      d[j+a[i]]:=i;
     end;
  i:=10000;
  while not f[i] do dec(i);
  print(i);
 until false;
end.

• 仰慕大牛。。。 (927) v11 2011-04-27 15:05:32
• Re:我过了，太坎坷了！提供题解和代码： (946) proverbs 2012-07-20 22:54:18
  • Re:我过了，太坎坷了！提供题解和代码： (30) Venique 2012-10-11 21:06:48