#include <bits/stdc++.h>
#include <cmath>
//#include <ranges>
using ll=long long;
#define rep(i,a,b) for(int i=a;i<b;i++)
#define chmin(x,b) x=min(x,b)
using namespace std;
#define fi first
#define se second
using P=pair<int,int>;
using PD=pair<double,double>;
using PL=pair<ll,ll>;
int mod1=998244353;
int mod2=1000000007;
const ll INF = 1000000000000000000;
const int big = 2147483647;

struct st{
    ll x,y,z;
    st(ll x=0,ll y=0,ll z=0):x(x),y(y),z(z){}
    bool operator>(const st &a)const{
        return x>a.x;
    }
};
PL dp[100010][2];
int main(){
    ll n,q,y=0,i,z=0,x=0,d=0,k,L,nk,sum=0,T;
    ll ans=INF,sum2=0,rs=-1e9,cs=0,l=0,h=0,w=0,r=0,X;
    ll tmp2=0,flag=0,a=0,b=0,c=0,j=0,m=0,p,S,K;
    ll N,M=0,R;
    cin>>N;
    vector<int>A(N);
    rep(i,0,N)cin>>A[i];
    rep(i,0,100010)rep(j,0,2){
        dp[i][j].fi=-INF;//fiで体力
        dp[i][j].se=-INF;//seで最大体力を表す
    }
    dp[0][0].fi=100;//二個目の配列は0が体力重視、1が最大体力重視にした
    dp[0][0].se=100;//それは例えば、ある遷移で体力は大きくなるが最大体力が減ってしまうという場合
    dp[0][1].fi=100;//どちらが優れているのかがその場ではわからないのでこのように2種類とった。
    dp[0][1].se=100;
    rep(i,0,1<<N){
        rep(j,0,N){
            if((i>>j)&1)continue;
            if(dp[i][0].fi+A[j]<=0)continue;
            bool jud=true;
            if(dp[i|(1<<j)][0].fi<dp[i][0].fi+A[j]){//体力重視の遷移
                if(jud && A[j]<0){
                    dp[i|(1<<j)][0].se=dp[i][0].se+100;
                    //jud=false;//judの役割としては例えば体力も最大体力も優れたものになるという遷移の時、最大体力重視の遷移の方でも内部にはい
                }
                else dp[i|(1<<j)][0].se=dp[i][0].se;
                dp[i|(1<<j)][0].fi=min(dp[i][0].fi+A[j],dp[i][0].se);
            }
            if(dp[i|(1<<j)][1].se<dp[i][1].se || (A[j]<0 && dp[i|(1<<j)][1].se<dp[i][1].se+100)){//最大体力重視の遷移
                if(jud && A[j]<0)dp[i|(1<<j)][1].se=dp[i][1].se+100;
                else dp[i|(1<<j)][1].se=dp[i][1].se;
                dp[i|(1<<j)][1].fi=min(dp[i][1].fi+A[j],dp[i][1].fi);
            }
        }
    }
    if(dp[(1<<N)-1][0].fi==-INF && dp[(1<<N)-1][1].fi==-INF)cout<<0<<endl;
    else cout<<max(dp[(1<<N)-1][0].fi,dp[(1<<N)-1][1].fi)<<endl;
    }