при попытке создать цикл с индексацией и расчитать сумму текущего элемента и следующего выдается часть значений в виде NA, при этом NA становятся только значения которые должны быть больше 9
a <- c(10, 20, 70, 40, 5)
for (i in a){
print(i+a[i+1])
}