$m=998244353;
$n=<>;
$d[10000]=1;
for$a(glob<>){
	for$v(100..19900){
		$e[$v+$a]+=$d[$v];
		$e[$v-$a]+=$d[$v];
	}
	@d=map$_%$m,@e;
	@e=();
}
for(0..10000){
	$z+=$_*$d[$_+10000];
}
print$z*2%$m;