#define MD 998244353
ll@N,@A[N],D=1e5+1,t;vector<Mint>B(2D,1),C(2D);B[0]=0;rep(i,N){REP(j,D)t=j+1+min(0,A[i]-(i?A[i-1]:0)),C[j+1]=j<D-A[i]&t>=0?C[j]+B[t]:C[j];swap(B,C);}wt(B[D]);