b = gets.chomp.to_i
n = gets.chomp.to_i
c = []
n.times do
	c << gets.chomp.to_i
end
ave = c.inject(:+) / n
#p ave
step = 0
(0...n).each do |i|
	step += (ave - c[i]).abs	
end
p step