bzoj1334

 var f:array[..] of boolean;
     a:array[..] of longint;
     i,n,s,j,ans:longint;

 procedure sort(l,r: longint);
   var i,j,x,y: longint;
   begin
     i:=l;
     j:=r;
     x:=a[(l+r) div ];
     repeat
       while (a[i]<x) do inc(i);
       while (x<a[j]) do dec(j);
       if not(i>j) then
       begin
         y:=a[i]; a[i]:=a[j]; a[j]:=y;
         inc(i);
         j:=j-;
       end;
     until i>j;
     if l<j then sort(l,j);
     if i<r then sort(i,r);
   end;

 begin
   readln(n);
   for i:= to n do
   begin
     read(a[i]);
     s:=s+a[i];
   end;
   sort(,n);
   f[]:=true;
   for i:=n downto  do
     for j:=s-a[i] downto  do
       if f[j] then
       begin
         f[j+a[i]]:=true;
         if (j<=s div ) and (j+a[i]>s div ) then
           if ans<j+a[i] then ans:=j+a[i];
       end;
   writeln(ans);
 end.