import Data.Sequence

--戦略：両端からとっていく。値が小さい方を優先的にとらせる。
--シーケンスが空になったときの差を計算すればいい。

solver::Seq Int->(Int,Int)->Int
solver sq (x,y) =  if sq == empty then abs (x-y) else if x <= y then let a :< rest = viewl sq in solver rest (a+x,y)
                                                                else let rest :> b = viewr sq in solver rest (x,b+y)

main::IO()
main=do
  _<-getLine
  datc<-getLine
  let dat = map read (words datc)
  print (solver (fromList dat) (0,0))