read n
read b
for b in $b;{((x+=b-1,y+=x<0?-x:x));}
echo $y