var a:array[1..1000] of longint；

f:array[0..1000] of longint；

n,i,j,s,w,s1:longint；

Function max(x,y:longint):longint；

begin

if x<y then max:=y

else max:=x；

end；

begin

readln(n)；

s:=0；

for i:=1 to n do

begin

readln(a[i])；

s:=s+a[i]；

end；

s1:=s div 2；

for i:=1 to n do

begin

for j:=s1 downto a[i] do

f[j]:=max(f[j],f[j-a[i]]+a[i])；

end；

w:=abs(s-2*f[s1])；

write(w)；

end.