ll@N,@A[N],x=0;wt(sum[i,0,N@A[i]>=sum(A(N))/N](1));