//疯狂容斥……
//容斥0：枚举哪些格子没有被覆盖，然后对于一个位置如果行列都没有被钦定未被覆盖的格子，那么方案数是 2 。
//显然这个容斥的复杂度非常爆炸，而且也不是很好 DP 。
//容斥1：枚举哪些列里面有格子被钦定未被覆盖，那么这些列都不能放棋子了。设集合为 $S$ 。
//那么此时考虑一个极长行连续段的贡献，假设里面有 $p$ 个格子在 $S$ 里，那么贡献有两种：
//1. 这 $p$ 个格子都没有钦定未覆盖，所以剩下的格子可以随便放，方案数 $2^{len-p}$ 。
//2. 枚举里面有几个格子被钦定，方案数是 $\sum\limits_{i=1}^{p} {p\choose i}(-1)^i=-[p\ne 0]$ 。
//但是这样算出来的结果仍然是错的，因为某一些在 $S$ 里的列可能还是没有钦定的格子。
//容斥2：在容斥1的基础上再套一个容斥，枚举集合 $T\subseteq S$ ，表示 $T$ 里面没有被钦定的格子。
//设一个极长行连续段里面有 $q$ 个格子在 $T$ 里面，那么第二种的贡献变成了 $-[p\ne q]$ 。
//注意到此时贡献只和 $p,[p\ne q]$ 有关，所以 DP 的状态数可能不会太大，来尝试设计一个 DP 。
//每次从 $h$ 最小的位置切开来，下面会形成一个矩形，上面会被分裂成一些子问题，并且子问题形成树形结构，并且矩形里的行连续段的 $p,q$ 就是由上面的加起来，再算上独有的列。
//于是可以设 $dp_{x,p,0/1}$ ，$p$ 表示 $S$ 的大小，$0/1$ 表示是否有 $p\ne q$ 。
//转移就是无脑从儿子用背包合并过来。对于独有的列也可以看做是一个特殊的儿子。
//然后此时每一行的方案数都是相同的，直接快速幂即可。
//复杂度 $O(n^2\log n)$ ，预处理一些东西可以变成 $O(n^2)$ 。
#include<bits/stdc++.h>
clock_t t=clock();
namespace my_std{
	using namespace std;
	#define pii pair<int,int>
	#define fir first
	#define sec second
	#define MP make_pair
	#define rep(i,x,y) for (int i=(x);i<=(y);i++)
	#define drep(i,x,y) for (int i=(x);i>=(y);i--)
	#define go(x) for (int i=head[x];i;i=edge[i].nxt)
	#define templ template<typename T>
	#define sz 666
	#define mod 998244353ll
	typedef long long ll;
	typedef double db;
//	mt19937 rng(chrono::steady_clock::now().time_since_epoch().count());
//	templ inline T rnd(T l,T r) {return uniform_int_distribution<T>(l,r)(rng);}
	templ inline bool chkmax(T &x,T y){return x<y?x=y,1:0;}
	templ inline bool chkmin(T &x,T y){return x>y?x=y,1:0;}
	templ inline void read(T& t)
	{
		t=0;char f=0,ch=getchar();double d=0.1;
		while(ch>'9'||ch<'0') f|=(ch=='-'),ch=getchar();
		while(ch<='9'&&ch>='0') t=t*10+ch-48,ch=getchar();
		if(ch=='.'){ch=getchar();while(ch<='9'&&ch>='0') t+=d*(ch^48),d*=0.1,ch=getchar();}
		t=(f?-t:t);
	}
//	template<typename T,typename... Args>inline void read(T& t,Args&... args){read(t); read(args...);}
	char __sr[1<<21],__z[20];int __C=-1,__zz=0;
	inline void Ot(){fwrite(__sr,1,__C+1,stdout),__C=-1;}
	inline void print(register int x)
	{
		if(__C>1<<20)Ot();if(x<0)__sr[++__C]='-',x=-x;
		while(__z[++__zz]=x%10+48,x/=10);
		while(__sr[++__C]=__z[__zz],--__zz);__sr[++__C]='\n';
	}
	void file()
	{
		#ifdef NTFOrz
		freopen("a.in","r",stdin);
		#endif
	}
	inline void chktime()
	{
		#ifdef NTFOrz
		cout<<(clock()-t)/1000.0<<'\n';
		#endif
	}
	#ifdef mod
	ll ksm(ll x,int y){ll ret=1;for (;y;y>>=1,x=x*x%mod) if (y&1) ret=ret*x%mod;return ret;}
	ll inv(ll x){return ksm(x,mod-2);}
	#else
	ll ksm(ll x,int y){ll ret=1;for (;y;y>>=1,x=x*x) if (y&1) ret=ret*x;return ret;}
	#endif
//	inline ll mul(ll a,ll b){ll d=(ll)(a*(double)b/mod+0.5);ll ret=a*b-d*mod;if (ret<0) ret+=mod;return ret;}
}
using namespace my_std;

ll fac[sz],_fac[sz];
void init(){_fac[0]=fac[0]=1;rep(i,1,sz-1) _fac[i]=inv(fac[i]=fac[i-1]*i%mod);}
ll C(int n,int m){return n>=m&&m>=0?fac[n]*_fac[m]%mod*_fac[n-m]%mod:0;}

int n;
int h[sz];

ll dp[sz][sz][2],d[sz][2],tmp[sz][2]; int id;

void merge(int x,int &s1,int s2)
{
	rep(i,0,s1+s2) tmp[i][0]=tmp[i][1]=0;
	rep(i,0,s1) rep(j,0,s2) rep(a,0,1) rep(b,0,1) (tmp[i+j][a|b]+=dp[x][i][a]*d[j][b]%mod)%=mod;
	s1+=s2; rep(i,0,s1) rep(k,0,1) dp[x][i][k]=tmp[i][k];
}
int solve(int l,int r,int lw)
{
	int mn=1e9;
	rep(i,l,r) chkmin(mn,h[i]);
	int cc=0;
	rep(i,l,r) cc+=(h[i]==mn);
	int x=++id,s=0; dp[x][0][0]=1;
	for (int L=l,R;L<=r;L=R+1)
	{
		if (h[L]==mn) { R=L; d[0][0]=1,d[0][1]=0,d[1][0]=mod-1,d[1][1]=1; merge(x,s,1); continue; }
		for (R=L;R<r&&h[R+1]!=mn;++R);
		int v=solve(L,R,mn);
		rep(i,0,R-L+1) rep(k,0,1) d[i][k]=dp[v][i][k];
		merge(x,s,R-L+1);
	}
	rep(i,0,s) rep(k,0,1) dp[x][i][k]=dp[x][i][k]*ksm(ksm(2,r-l+1-i)-k,mn-lw)%mod;
	return x;
}

int main()
{
	file();
	init();
	read(n);
	rep(i,1,n) read(h[i]);
	int x=solve(1,n,0);
	ll ans=0;
	rep(i,0,n) rep(k,0,1) (ans+=dp[x][i][k])%=mod;
	cout<<ans;
	return 0;
}

Measured memory_bytes: 6500