ll@N,@A[N],a{};rep(i,N)a+=A[i]>=sum(A(N))/N+100;wt(a);