#include<bits/stdc++.h>
using namespace std;

#define rep(i,n) for(ll i=0;i<(n);++i)
using ll = long long;
using pll = pair<ll,ll>;
constexpr ll INF = (1LL<<60);
constexpr ll MOD = (1e9+7);
//constexpr ll MOD = (998244353);
template<class T> bool chmax(T &a,const T &b){if(a<b){a=b;return 1;}return 0;}
template<class T> bool chmin(T &a,const T &b){if(a>b){a=b;return 1;}return 0;}
void dump(){cout<<endl;}
template<class T,class... Ts> void dump(T&& h, Ts&&... t){cout<<h<<", ";dump(forward<Ts>(t)...);}
template<class T> istream &operator>>(istream&is,vector<T>&v){for(auto &elemnt:v)is>>elemnt;return is;}
template<class T,class U> istream &operator>>(istream&is,pair<T,U>&p){is>>p.first>>p.second;return is;}
template<class T>vector<T> make_vector(size_t a){return vector<T>(a);}
template<class T, class... Ts>auto make_vector(size_t a, Ts... ts){return vector<decltype(make_vector<T>(ts...))>(a, make_vector<T>(ts...));}

void solve1();void solve2();
int main(){
  solve1();
  return 0;
}

void solve1(){

  ll n;
  cin>>n;
  vector<ll> a(n);
  cin>>a;

  sort(a.begin(),a.end());
  ll base1 = a[n/3];
  ll base2 = a[n/3*2];
  ll ans = 0;
  rep(i,n){
    ans += min(abs(base1-a[i]),abs(base2-a[i]));
  }
  base1 = a[n/3+1];
  base2 = a[n/3*2+1];
  ll tmp = 0;
  rep(i,n){
    tmp += min(abs(base1-a[i]),abs(base2-a[i]));
  }
  chmin(ans,tmp);
  tmp=0;
  base1 = a[n/3-1];
  base2 = a[n/3*2-1];
  rep(i,n){
    tmp += min(abs(base1-a[i]),abs(base2-a[i]));
  }
  chmin(ans,tmp);
  tmp=0;
  base1 = a[n/3+1];
  base2 = a[n/3*2-1];
  rep(i,n){
    tmp += min(abs(base1-a[i]),abs(base2-a[i]));
  }
  chmin(ans,tmp);
  tmp=0;
  base1 = a[n/3-1];
  base2 = a[n/3*2+1];
  rep(i,n){
    tmp += min(abs(base1-a[i]),abs(base2-a[i]));
  }
  chmin(ans,tmp);
  tmp=0;
  base1 = a[n/3];
  base2 = a[n/3*2-1];
  rep(i,n){
    tmp += min(abs(base1-a[i]),abs(base2-a[i]));
  }
  chmin(ans,tmp);
  tmp=0;
  base1 = a[n/3-1];
  base2 = a[n/3*2];
  rep(i,n){
    tmp += min(abs(base1-a[i]),abs(base2-a[i]));
  }
  chmin(ans,tmp);
  tmp=0;
  base1 = a[n/3+1];
  base2 = a[n/3*2];
  rep(i,n){
    tmp += min(abs(base1-a[i]),abs(base2-a[i]));
  }
  chmin(ans,tmp);
  tmp=0;
  base1 = a[n/3];
  base2 = a[n/3*2+1];
  rep(i,n){
    tmp += min(abs(base1-a[i]),abs(base2-a[i]));
  }
  chmin(ans,tmp);

  map<ll,ll>cnt;
  rep(i,n)cnt[a[i]]++;
  if(cnt.size()==1)cout<<1<<endl;
  else if(cnt.size()==2)cout<<0<<endl;
  else cout<<ans<<endl;

}