B,N,*C=$<.map &:to_i
p C.sum{(_1-[C.sort[N/2],(B+C.sum)/N].min).abs}