Вот решение для вашей домашней задачи (с использованием цикла):
v <- c(1, 5, 26, 7, 94)
w <- 0
for (i in 1:length(v)) {
if ((v[i] >24) & (v[i] %% 13 == 0)) { w <- i; break }
}
w
Без ограничения код может быть коротким:
v <- c(1,5,27,7,94)
w <- which((v >24) & (v%%13 == 0))
if (length(w)==0) w <- 0