n = gets.to_i
a = gets.split.map(&:to_i).sort
u = 0
v = n/2
sum = 0
(1...n).each do |i|
    sum += (a[i]-a[v]).abs
end
ans = sum
(1..(n-2)).each do |i|
    sum += 2*a[i]-a[u]-a[v]
    if i.even?
        sum -= a[u+1]-a[u]
        u += 1
    end
    if (n-i).even?
        sum -= a[v+1]-a[v]
        v += 1
    end
    ans = sum if ans > sum
end
if a[0] == a[-1]
    puts 1
else
    puts ans
end