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