#pragma GCC optimize("Ofast")
#pragma GCC target("avx2")

char*mmap();

#define rd_skip() while(*rp++>=48)
#define rd(v) long v=0;{long _c;while(_c=*rp++-48,_c>=0)v=v*10+_c;}
#define wt(v) {long _z=v;do*--wp=_z%10+48;while(_z/=10);}

#define MD 998244353

long d[10001];

long f1(){
	char*rp=mmap(0l,1l<<25,1,2,0,0ll);
	rd_skip();
	d[0]=1;
	long s=0;
	while(*rp){
		rd(a);
		s+=a;
		for(long v=s;v>=0;--v){
			long b=d[v+a]+d[v];
			b-=b<MD?0:MD;
			d[v+a]=b;
		}
	}
	return s;
}

long f2(long s){
	long z=0;
	for(long v=s+1>>1;v<=s;++v){
		z+=(v*2-s)*d[v];
	}
	return z*2%MD;
}

void f3(long z){
	char wbuf[64],*wp=wbuf+sizeof wbuf;
	wt(z);
	write(1,wp,wbuf+sizeof wbuf-wp);
	_exit(0);
}

main(){
	f3(f2(f1()));
}