#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
template<class T>bool chmax(T &a, const T &b) { if (a<b) { a=b; return true; } return false; }
template<class T>bool chmin(T &a, const T &b) { if (b<a) { a=b; return true; } return false; }
#define all(x) (x).begin(),(x).end()
#define fi first
#define se second
#define mp make_pair
#define si(x) int(x.size())
const int mod=998244353,MAX=300005,INF=1<<30;

int main(){
    
    std::ifstream in("text.txt");
    std::cin.rdbuf(in.rdbuf());
    cin.tie(0);
    ios::sync_with_stdio(false);
    
    ll N;cin>>N;
    vector<ll> A(N);
    for(int i=0;i<N;i++) cin>>A[i];
    sort(all(A));
    
    ll ans=-(1LL<<60);
    
    for(int f=0;f<2;f++){
        ll mi=INF;
        for(int g=0;g<2;g++){
            multiset<ll> SE;
            for(ll x:A) SE.insert(x);
            
            ll x=0,y=0;
            for(int i=0;i<N;i++){
                if(i%2==0){
                    if(f==0){
                        x+=*SE.begin();
                        SE.erase(SE.begin());
                    }else{
                        x+=*SE.rbegin();
                        SE.erase(prev(SE.end()));
                    }
                }else{
                    if(g==0){
                        y+=*SE.begin();
                        SE.erase(SE.begin());
                    }else{
                        y+=*SE.rbegin();
                        SE.erase(prev(SE.end()));
                    }
                }
            }
            
            x=abs(x);
            y=abs(y);
            chmin(mi,x-y);
        }
        chmax(ans,mi);
    }
    
    cout<<ans<<endl;
    
}