bzoj1334

var f:array[0..100005] of boolean;
    a:array[0..310] 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 2];
    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-1;
      end;
    until i>j;
    if l<j then sort(l,j);
    if i<r then sort(i,r);
  end;

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