#include<iostream>
#include<vector>
#include<set>
#define pb push_back
#define pii pair<int,int>
#define fi first
#define se second
using namespace std;
const int N=1e6+10;
int n,sum,res,a[N],b[N];
set <int> sa;
set <pii> sb;
vector <pii> rv;
bool check(int x,int y)
{
	sb.erase({a[x],x}),sb.insert({a[x]-1,x}); 
	if(y!=x) sb.erase({a[y],y}),sb.insert({a[y]-1,y});
	bool rf=(max((*prev(sb.end())).fi,(sum-(x!=y))/2)<=res-1);
	sb.erase({a[x]-1,x}),sb.insert({a[x],x});
	if(y!=x) sb.erase({a[y]-1,y}),sb.insert({a[y],y});
	return rf;
}
void del(int x,int y)
{
	res--,sum-=((x!=y)+1),rv.pb({x,y}),sb.erase({a[x],x}),a[x]--;
	if(a[x]) sb.insert({a[x],x});
	else sa.erase(x);
	if(y!=x)
	{
		sb.erase({a[y],y}),a[y]--;
		if(a[y]) sb.insert({a[y],y});
		else sa.erase(y);
	}
}
int main()
{
	ios::sync_with_stdio(false),cin.tie(0),cout.tie(0);
	cin>>n;
	for(int i=1;i<=n;i++)
	{
		cin>>a[i],sum+=a[i];
		if(a[i]) sa.insert(i),sb.insert({a[i],i});
	}
	res=max((*prev(sb.end())).fi,(sum+1)/2),cout<<res<<'\n';
	while(sa.size())
	{
		auto it=sa.begin(); int x=*it,y;
		if(check(x,x)) {del(x,x); continue;}
		y=*next(it);
		if(check(x,y)) {del(x,y); continue;}
		del(x,(*prev(sb.end())).se);
	}
	for(pii te:rv) cout<<te.fi<<' '<<te.se<<'\n';
	return 0;
}