ll@T;rep(T){ll@N,@A[N],a=max[i,0,N](A[i])*2,b=sum[i,0,N](A[i]);wt(b<a?2b-a+1:b);}