在满足条件时，计算range中的向量元素。

I have a vector of numbers:

我有一个数字向量:

x <- c(0, 0, 0, 30, 60, 0, 0, 0, 0, 0, 10, 0, 0, 15, 45, 0, 0)
x <-