N = gets.to_i
S = gets.chomp
A = gets.split.map(&:to_i)
Q = gets.to_i
K = gets.split.map(&:to_i)
E = [0]
R = [0]
e_cnt = 0

S.each_char do |ch|
  e_cnt += 1 if ch == 'E'
  E << e_cnt
end

A.each do |a|
  R << R.last + a
end

K.each do |k|
  l = 0
  r = 0
  ans = 0

  while l <= r
    power = R[r] - R[l]
    cnt = E[r] - E[l]

    if power <= k
      ans = cnt if ans < cnt
    end

    if l == r && r + 1 <= N
      r += 1
    elsif power < k && r + 1 <= N
      r += 1
    else
      l += 1
    end
  end

  puts ans
end