var
x:array[1..100]of longint;
dp:array[0..10000]of longint;
i,j,n,sum:longint;
functionmax(a,b:longint):longint;
beginif a>b
thenexit(a)
elseexit(b);
end;
begin
readln(n);
for i:=1to n dobegin
readln(x[i]);
inc(sum,x[i]);
end;
for i:=1to n dofor j:=sum downto x[i] doif (dp[j-x[i]]+x[i])*2<=sum
then dp[j]:=max(dp[j],dp[j-x[i]]+x[i]);
writeln(abs(sum-2*dp[sum div2]));
end.