Submission #10218315

---

Source Code Expand

var
	N,i:Longint;
	A:Array[1..100000]of Longint;
	ans,now,sum:int64;
begin
	read(N);
	for i:=1 to N do read(A[i]);
	now:=0;
	sum:=0;
	for i:=1 to N do begin
		inc(sum,A[i]);
		if(i mod 2=1)and(sum<=0)then begin
			inc(now,1-sum);
			sum:=1;
		end else if(i mod 2=0)and(sum>=0)then begin
			inc(now,sum+1);
			sum:=-1;
		end;
	end;
	ans:=now;
	now:=0;
	sum:=0;
	for i:=1 to N do begin
		inc(sum,A[i]);
		if(i mod 2=0)and(sum<=0)then begin
			inc(now,1-sum);
			sum:=1;
		end else if(i mod 2=1)and(sum>=0)then begin
			inc(now,sum+1);
			sum:=-1;
		end;
	end;
	if ans>now then ans:=now;
	writeln(ans);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result