#include<bits/stdc++.h>
#define rep(i,a,b) for(int i=a;i<=b;i++)
#define per(i,a,b,c) for(int i=a;i<=b;i+=c)
using namespace std;
const int N=2e3+5,M=12,B=5000,mod=998244353;
typedef long long ll;
int n,a[M+5];
int f[N][N*M],g[N][N*M],t[N][N*M],v1[N*M][M],v2[N*M][M];
void add(int&x,ll y){x=(x+y+mod)%mod;}
int main(){cin>>n;for(int i=1,x;i<=n;i++)cin>>x,a[x]++;f[0][0]=g[0][0]=1;
	int xa=0,ya=0,xb=0,yb=0;g[0][0]=1;
	per(i,3,11,2){
		xb+=a[i],yb+=a[i]*i;
		rep(j,0,xb)rep(k,0,yb)
			t[j][k]=(j&&k>=i?t[j-1][k-i]:0),add(t[j][k],g[j][k]),g[j][k]=0;
		rep(j,0,xb)rep(k,0,yb){
			int cur=min(min(a[i],j),k/i)+1;
			g[j][k]=t[j][k]-(j>=cur&&k>=cur*i?t[j-cur][k-cur*i]:0);
		}
	}
	xb+=a[1],yb+=a[1];
	rep(i,0,xb)rep(j,0,yb)f[i][j]=t[i][j]=0;
	rep(i,0,xb)rep(j,0,yb){
		if(a[1]<i){
			add(f[i][j],g[i][j]);
			if(i+a[1]+1<=xb&&j+a[1]+1<=yb)add(f[i+a[1]+1][j+a[1]+1],-g[i][j]);
		}
		else{
			add(f[i][j],g[i][j]);
			if(2*i<=xb&&i+j<=yb)add(f[2*i][i+j],-g[i][j]);
			if(2*i<=xb&&i+j<=yb)add(t[2*i][i+j],g[i][j]);
			if(2*i+(a[1]+2-i)/2<=xb&&j+i+(a[1]+2-i)/2*2<=yb)
				add(t[2*i+(a[1]+2-i)/2][j+i+(a[1]+2-i)/2*2],-g[i][j]);
			if(2*i<=xb&&i+j+1<=yb)
				add(t[2*i][i+j+1],g[i][j]);
			if(2*i+(a[1]+1-i)/2<=xb&&j+i+1+(a[1]+1-i)/2*2<=yb)
				add(t[2*i+(a[1]+1-i)/2][j+i+1+(a[1]+1-i)/2*2],-g[i][j]);
		}
	}
	rep(i,0,xb)rep(j,0,yb)g[i][j]=0;
	int ans=0,x=0,y=0;
	rep(i,0,xb)rep(j,0,yb)add(f[i][j],i>=1&&j>=1?f[i-1][j-1]:0),add(t[i][j],i>=1&&j>=2?t[i-1][j-2]:0),add(g[i][j],f[i][j]+t[i][j]);
	rep(i,0,xb)rep(j,0,yb)f[i][j]=0;
	rep(i,0,xb)rep(j,0,yb)t[i][j]=0;
	f[0][0]=1;
	per(i,2,12,2){
		xa+=a[i],ya+=a[i]*i;
		rep(j,0,xa)rep(k,0,ya)
			t[j][k]=(j&&k>=i?t[j-1][k-i]:0),add(t[j][k],f[j][k]),f[j][k]=0;
		rep(j,0,xa)rep(k,0,ya){
			int cur=min(min(a[i],j),k/i)+1;
			f[j][k]=t[j][k]-(j>=cur&&k>=cur*i?t[j-cur][k-cur*i]:0);
		}
	}
	rep(i,0,xa)rep(j,0,ya)add(x,f[i][j]);
	rep(i,0,xb)rep(j,0,yb)add(y,g[i][j]);
	rep(i,0,xa)rep(j,0,ya)add(ans,1ll*i*f[i][j]%mod*y%mod),add(v2[j/10-i+B][j%10],f[i][j]);
	rep(i,0,xb)rep(j,0,yb)add(ans,1ll*(i+1)*g[i][j]%mod*x%mod),add(v1[j/10-i+B][j%10],g[i][j]);
	rep(i,-xa,ya/10){
		rep(p,0,9){if(!v2[i+B][p])continue ;
			rep(j,-xb,yb/10){if(i+j>1)break ;
				rep(q,0,9){if(!v1[j+B][q])continue ;
					if((i+j)+(p+q)/10<0)add(ans,1ll*v2[i+B][p]*v1[j+B][q]%mod *(i+j+(p+q)/10)%mod);
				}
			}
		}
	}cout<<ans<<'\n';
}