//g++ 1.cpp -std=c++17 -O2 -I .
#include <bits/stdc++.h>
using namespace std;

#include <atcoder/all>
using namespace atcoder;

using ll = long long;
using ld = long double;
 
using vi = vector<int>;
using vvi = vector<vi>;
using vll = vector<ll>;
using vvll = vector<vll>;
using vld = vector<ld>;
using vvld = vector<vld>;
using vst = vector<string>;
using vvst = vector<vst>;
 
#define fi first
#define se second
#define pb push_back
#define eb emplace_back
#define pq_big(T) priority_queue<T,vector<T>,less<T>>
#define pq_small(T) priority_queue<T,vector<T>,greater<T>>
#define all(a) a.begin(),a.end()
#define rep(i,start,end) for(ll i=start;i<(ll)(end);i++)
#define per(i,start,end) for(ll i=start;i>=(ll)(end);i--)
#define uniq(a) sort(all(a));a.erase(unique(all(a)),a.end())

using P = pair<int,vll>;

int main(){
  ios::sync_with_stdio(false);
  cin.tie(nullptr);

  int n;
  cin>>n;

  ll sm=0;

  vi a(n);
  rep(i,0,n){
    cin>>a[i];
    sm+=a[i];
  }

  ll ans=sm;
  ans*=pow_mod(2,n-1,998244353);
  ans%=998244353;

  if(sm<999630629){
    cout<<ans<<endl;
    return 0;
  }

  int sz=sm-999630629; // 選ばないものの総和を sz 以下

  pq_small(P) que;

  rep(i,0,n){
    vll fps(a[i]+1,0);
    fps[0]=1;
    fps[a[i]]=1;
    que.push({a[i]+1,fps});
  }

  while(que.size()>1){
    auto [s1,fps1]=que.top();
    que.pop();
    auto [s2,fps2]=que.top();
    que.pop();
    vll fps=convolution(fps1,fps2);
    while(fps.size()>sz+1){
      fps.pop_back();
    }
    que.push({fps.size(),fps});
  }

  auto [s,fps]=que.top();
  ll sum=0;
  rep(i,0,sz+1){
    if(i>=s)break;
    sum+=fps[i];
    sum%=998244353;
  }

  sum*=999630629;
  sum%=998244353;

  ans-=sum;
  ans%=998244353;
  if(ans<0)ans+=998244353;

  cout<<ans<<endl;
}