var
N, i, Sum, min, AllSec: integer;
F: text;
Nums: array of integer;
used: array of boolean;
procedure gen(d: integer);
var i: integer;
  begin
  if (d = N - 1) then
    begin
      Sum := 0;
      for i := 0 to N - 1 do
        begin
          if used[i] then
            Sum += Nums[i];
        end;
      if (AllSec - Sum >= Sum) and (AllSec - Sum < min) then
        min := AllSec - Sum;
    end;
  for i := 0 to N - 1 do
    begin
      if used[i] then continue;
      used[i] := true;
      gen(d+1);
      used[i] := false;
    end;
  end;
begin
  Assign(F, 'input.txt');
  Reset(F);
  read(F, N);
  setlength(Nums, N);
  setlength(Used, N);
  for i := 0 to N - 1 do begin
    read(F, Nums[i]);
    AllSec += Nums[i];
  end;
  Close(F);
  min := AllSec;
  for i := 0 to N - 1 do
    gen(i);
  Assign(F, 'output.txt');
  ReWrite(F);
  Writeln(F, min);
  Close(F);
end.