PROGRAM ATCODER

implicit none
integer(8) :: n,i,j,count=1,m=998244353,count1=0,count2=0,s
integer(8),allocatable :: a(:),dp(:,:)

read*, n
allocate(a(n))
read*, a(1:n)
allocate(dp(0:n,0:sum(a)))

!! 全ての通り
do i = 1, n, 1
  count = count*3
end do

dp = 0
dp(0,0) = 1
!! dp(t,r)=最初のt個の整数を3色で塗り分け、赤い整数の和がrであるような場合の数
do i = 0, n-1, 1
  do j = 0, sum(a), 1
    !! i+1番目を他の2色で塗る場合
    dp(i+1,j) = mod(dp(i+1,j)+2*dp(i,j),m)
    !! 赤で塗る場合
    if ( j+a(i+1) <= sum(a) ) then
      dp(i+1,j+a(i+1)) = mod(dp(i+1,j+a(i+1))+dp(i,j),m)
    end if
  end do
end do

do j = 1, 3
  do i = ceiling(real(sum(a))/2.d0,8), sum(a), 1
    count1 = mod(count1+dp(n,i),m)
  end do
end do

dp = 0
dp(0,0) = 1
!! dp(t,r)=最初のt個の整数を2色で塗り分け、赤い整数の和がrであるような場合の数
do i = 0, n-1, 1
  do j = 0, sum(a), 1
    !! i+1番目を他の色で塗る場合
    dp(i+1,j) = mod(dp(i+1,j)+dp(i,j),m)
    !! 赤で塗る場合
    if ( j+a(i+1) <= sum(a) ) then
      dp(i+1,j+a(i+1)) = mod(dp(i+1,j+a(i+1))+dp(i,j),m)
    end if
  end do
end do

if (mod(sum(a),2) == 0) then
  do i = 1, 3, 1
    count2 = mod(count2+dp(n,sum(a)/2),m)
  end do
else
  count2 = 0
end if

print'(i0)', count-count1+count2

END PROGRAM ATCODER