program qq;
{$APPTYPE CONSOLE}
{$O-}
uses
  SysUtils;
var
  a:array [1..25] of integer;
  i,n,m,s1,s2,ans: integer;
begin
  
  read(n);
  for i := 1 to n do
    read(a[i]);
  ans := maxint;
  for m := 0 to (1 shl n) - 1 do begin
    s1 := 0;
    s2 := 0;
    for i := 1 to n do begin
      if (m shr(n - i) and 1) = 1 then
        s1 := s1 + a[i]
      else
        s2 := s2+a[i];
    end;
    if ans > abs(s1 - s2) then
      ans := abs(s1 - s2);
  end;
  writeln(ans);
end.