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