{$APPTYPE CONSOLE}
var i,n,min,sum:integer;f:text;
a,c:array[1..40] of integer;
s:array[0..1] of integer;
procedure der(inn,ic:integer);
begin
c[inn]:=ic;
if inn=n then begin
s[0]:=0;s[1]:=0;
for i:=1 to n do
s[c[i]]:=s[c[i]]+a[i];
if abs(s[0]-s[1])<min then begin
min:=abs(s[0]-s[1]);
if min=sum then begin
writeln(f,min);close(f);halt;
end;//min
end;//if abs
end//if inn
else begin
der(inn+1,0);der(inn+1,1);end;//else
end;//Procedure
//Main program
begin
assign(f,'Stones.dat');reset(f);
readln(f,n);
for i:=1 to n do begin
readln(f,a[i]);sum:=sum+a[i];end;//for i
close(f);
assign(f,'Stones.sol');rewrite(f);
if sum mod 2=0 then sum:=0 else sum:=1;
min:=maxint;
der(1,0);der(1,1);
writeln(f,min);
close(f);
end.//Program