$m=998244353;
$n=<>;
$d[0]=1;
for$a(glob<>){
	$s+=$a;
	for$v(-$#d..0){
		($d[-$v+$a]+=$d[-$v])%=$m;
	}
}
for(($s+1)/2..$#d){
	$z+=($_*2-$s)*$d[$_];
}
print$z*2%$m;