b = gets.to_i
n = gets.to_i
c = Array.new
n.times do
    c.push(gets.to_i)
end
minv = 10 ** 11
mini = 0
c.sort!
n.times do |i|
    sum = 0
    n.times do |j|
        sum += (c[i] - c[j]).abs
    end
    if sum < minv
        minv = sum
        mini = i
    end
end
s1 = 0
s2 = b
n.times do |i|
    if i < mini
        s1 += c[mini] - c[i]
    else
        s2 += c[i] - c[mini]
    end
end
if s1 <= s2
    puts s1 + s2 - b
else
    mc = (s1 - s2) / n + 1
    upc = mc * (n - mini) + s2
    puts upc + s1 - mini * mc - b
end