ll@n,@a[n],c[n];
c[0]=a[0];
rep(i,1,n){
	c[i]=a[i]?c[i-1]+a[i]:0;
}
rrep(i,n-1){
	c[i]=a[i]&&c[i+1]?c[i+1]:c[i];
}
ll@q;
rep(q){
	ll@x--,@b;
	wt(a[x]?b-a[x]+c[x]:b+(x?c[x-1]:0)+(x<n-1?c[x+1]:0));
}