N, K = gets.split.map(&:to_i)
A = gets.split.map(&:to_i)
l = 0
r = N - 1

(1 .. N).find do |i|
  if i < K
    l = i - 1 if A[i - 1] <= 1
    false
  elsif i > K
    r = i - 1 if A[i - 1] <= 1
    true
  else
    if A[i - 1] == 0
      l = K - 1; r = K - 1
      true
    end
  end
end
puts A[l .. r].inject(&:+)