#include <bits/stdc++.h>
#define ms(x, v) memset(x, v, sizeof(x))
#define il __attribute__((always_inline)) static
#define U(i,l,r) for(int i(l),END##i(r);i<=END##i;++i)
#define D(i,r,l) for(int i(r),END##i(l);i>=END##i;--i)
using namespace std;
using ll = unsigned int;

#define IC isdigit(c)
#define GC c=getchar()
void rd(auto &x) { x = 0; char GC; bool f = 0;
	for (; !IC; GC) f |= c == '-';
	for (; IC; GC) x = x * 10 + c - 48;
	if (f) x = -x;
}
void rd(auto &x, auto &...y) { rd(x); rd(y...); }
#define meow(...) fprintf(stderr, __VA_ARGS__)
#define Assert(e, v) if (!(e)) exit(v);

#define int ll
const int N = 1003;
int n, t[N];

// 使位置 i 合法的最小代价
// 维护 [i-75, i) 的 dp 值
// 每段的起点，三个 [i-75, z, y, x) i
// 代价为0：x+20 / y+40 / z+75 cover i

const int P = 998244353;
const int K = 76;
pair<int, int> f[K][K][K], g[K][K][K];
il void I(int &x, int v) { (x += v) >= P ? (x -= P) : 0; }

#define lim(u) min((u), 75u)
void migr(pair<int, int> &a, const pair<int, int> &b, int d) {
	I(a.first, b.first); I(a.second, b.second);
	if (d) I(a.first, b.second);
}

signed main() {
//	freopen("ava.in", "r", stdin);
	
	rd(n);
	U (i, 1, n) rd(t[i]);
	
	// f_i (x,y,z) : 某一段的第一个在 i-x。第0段是 (i-x,i]，第一段是 (i-y,i-x]
	
	f[1][1][1] = {0, 1};
	U (i, 1, n) {
		U (x, 1, min(i, 75u)) U (y, x, min(i, 75u)) U (z, y, min(i, 75u)) {
			// 1. 第 i 位存在
			// 1.1. 能 = f(i-1)
			int u = i - 1 - x + 1, v = i - 1 - z + 1;
			if ((u > 0 && t[u] + 20 > t[i]) || (v > 0 && t[v] + 75 > t[i])) {
				migr(g[lim(x + 1)][lim(y + 1)][lim(z + 1)], f[x][y][z], 0);
			} else {
				migr(g[1][lim(x + 1)][lim(y + 1)], f[x][y][z], 1);
			}
			// 2. 第 i 位不存在
			migr(g[lim(x + 1)][lim(y + 1)][lim(z + 1)], f[x][y][z], 0);
		}
		U (x, 1, min(i + 1, 75u)) U (y, x, min(i + 1, 75u)) U (z, y, min(i + 1, 75u)) {
			f[x][y][z] = g[x][y][z];
			g[x][y][z] = {0, 0};
		}
	}
	int ans = 0, tot = 0;
	U (x, 1, 75) U (y, x, 75) U (z, y, 75) {
		I(ans, f[x][y][z].first);
		I(tot, f[x][y][z].second);
	}
	clog << "#" << tot << endl;
	printf("%d\n", ans * 2 %P);
}