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