#include <cmath>
#include <deque>
#include <algorithm>
#include <iterator>
#include <list>
#include <tuple>
#include <map>
#include <unordered_map>
#include <queue>
#include <set>
#include <unordered_set>
#include <stack>
#include <string>
#include <vector>
#include <fstream>
#include <iostream>
#include <functional>
#include <numeric>
#include <iomanip> 
#include <stdio.h>
#include <assert.h>
//eolibraries
#define lnf 3999999999999999999
#define inf 999999999
#define fi first
#define se second
#define pb push_back
#define ll long long
#define ld long double
#define all(c) (c).begin(),(c).end()
#define sz(c) (ll)(c).size()
#define make_unique(a) sort(all(a)),a.erase(unique(all(a)),a.end())
#define pii pair <ll,ll>
#define rep(i,n) for(ll i = 0 ; i < n ; i++) 
#define drep(i,n) for(ll i = n-1 ; i >= 0 ; i--)
#define crep(i,x,n) for(ll i = x ; i < n ; i++)
#define vi vector <ll> 
#define vec(...) vector<__VA_ARGS__>
#define fcin ios_base::sync_with_stdio(false),cin.tie(0),cout.tie(0);
//eodefine
using namespace std;

const ll mxn=500000;

int main(){
fcin;
	ll n;
	cin>>n;
	vi a(n);
	rep(i,n) cin>>a[i];
	ll e=0,w=0;
	rep(i,n){
		if(a[i]==1) e++;
		else if(a[i]==0) w++;
	}
	vec(pii) nea;
	for(ll i=0;i<n;){
		ll cnt1=0,cnt0=0;
		while(i<n and a[i]!=2){
			if(a[i]==1) cnt1++;
			else if(a[i]==0) cnt0++;
			i=i+1;
		}
		if(cnt1 and cnt0) nea.pb({cnt1,cnt0});
		while(a[i]==2) i++;
	}
	vec(vi) dp(sz(nea)+2,vi(e+3,inf));
	dp[0][e]=0;
	ll cnt0=0,cnt1=0;
	rep(i,sz(nea)){
		pii p=nea[i];
		drep(j,e+1){
			if(dp[i][j]==inf) continue;
			if(p.fi+p.se<=j){
				dp[i+1][j-p.fi-p.se]=min(dp[i+1][j-p.fi-p.se],dp[i][j]+p.se);
			}
			if(p.fi+p.se<=w-(cnt1+cnt0-(e-j))){
				dp[i+1][j]=min(dp[i+1][j],dp[i][j]+p.fi);
			}
		}
		cnt1+=p.fi; cnt0+=p.se;
	}
	ll ans=inf;
	rep(j,e+1){
		ans=min(ans,dp[sz(nea)][j]);
	}
	if(ans==inf) cout<<"-1\n";
	else cout<<ans/2<<"\n";

//
	return 0;
}