local mod = 998244353
local mma, mmi = math.max, math.min
local mfl = math.floor

local function bmul(x, y)
  local x0, y0 = x % 31596, y % 31596
  local x1, y1 = mfl(x / 31596), mfl(y / 31596)
  return (x1 * y1 * 62863 + (x1 * y0 + x0 * y1) * 31596 + x0 * y0) % mod
end

local function badd(x, y)
  return (x + y) % mod
end

local function bsub(x, y)
  return x < y and x - y + mod or x - y
end

local function modpow(src, pow)
  local res = 1
  while 0 < pow do
    if pow % 2 == 1 then
      res = bmul(res, src)
      pow = pow - 1
    end
    src = bmul(src, src)
    pow = mfl(pow / 2)
  end
  return res
end

local n = io.read("*n")
local a = {}
local tot = 0
for i = 1, n do
  a[i] = io.read("*n")
  tot = tot + a[i]
end
local htot = mfl(tot / 2)
local dp = {}
local single = {}
local curmax = 0
for i = 1, htot do
  dp[i] = 0
  single[i] = 0
end
for i = 1, n do
  local ai = a[i]
  local lim = mmi(curmax, htot - ai)
  for j = lim, 1, -1 do
    dp[j + ai] = badd(dp[j + ai], bmul(2, dp[j]))
    single[j + ai] = badd(single[j + ai], single[j])
  end
  if ai <= htot then
    dp[ai] = badd(dp[ai], 2)
    single[ai] = badd(single[ai], 1)
  end
  curmax = curmax + ai
end
local ret = modpow(3, n)
if tot % 2 == 0 then
  local rmsum = 1
  for i = 1, htot do
    rmsum = badd(rmsum, dp[i])
  end
  rmsum = bsub(rmsum, single[htot])
  rmsum = bmul(rmsum, 3)
  ret = bsub(ret, rmsum)
else
  local rmsum = 1
  for i = 1, htot do
    rmsum = badd(rmsum, dp[i])
  end
  rmsum = bmul(rmsum, 3)
  ret = bsub(ret, rmsum)
end
print(ret)
