p1059(others).pas

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

program p1059;
  var min:longint;n:integer;
      f:array[1..100,0..10000]of boolean;
  procedure main1;
    var i,sum,j,b:longint;
    begin
      fillchar(f,sizeof(f),false);
      readln(n);min:=maxint;
      for i:=1 to n do
        begin
          read(b);
          sum:=0;
          f[i,0]:=true;
          while b<>-1 do
          begin
          for j:=sum downto 0 do
            if f[i,j] then f[i,j+b]:=true;
            sum:=sum+b;
            read(b);
          end;
          readln;if sum<min then min:=sum;
        end;
     end;
  procedure main2;
    var i,j:longint;
    begin
      for j:=min downto 1 do
        begin
          for i:=1 to n do
            if not f[i,j]then break;
          if f[i,j] then begin writeln(j);halt;end;
        end;
      writeln('0');
   end;
  begin
    main1;main2;
  end.