main=do
 getLine
 a<-map read.words<$>getLine
 print$min(f True 0 a)(f False 0 a)
f w s(a:as)=if(if w then s+a>0 else s+a<0)then f(not w)(s+a)as else if w then 1-s-a+(f(not w)1 as)else s+a-1+(f(not w)(-1)as)