from itertools import*
from math import*
from collections import*
from heapq import*
from bisect import bisect_left,bisect_right
from copy import deepcopy
inf = float("inf")
mod = 10**9+7
from functools import reduce
import sys
sys.setrecursionlimit(10**7)

N = int(input())
Y = list(map(int,input().split()))
Y.sort()
S  =[0]*(N+1)
def mid(x,y,l):
    a = y-x
    if a%2 == 0:
        return a//2,l[a//2+x]
    else:
        return (a-1)//2+1,(l[(a-1)//2+x]+l[(a-1)//2+1+x])//2
ans = inf
for i in range(1,N+1):
    S[i] += S[i-1]+Y[i-1]
for i in range(1,N):
    x1,m1 = mid(0,i-1,Y)
    x2,m2 = mid(i,N-1,Y)
    if m1 == m2:
        m2 = m1+1
    cur = (m1*x1-S[x1])+(S[i]-S[x1]-m1*(i-x1))
    cur += abs((m2*x2-(S[i+x2]-S[i])))+abs((S[N]-S[i+x2]-m2*(N-i-x2)))
    ans = min(ans,cur)
print(ans)