Биологическое разнообразие

mas <- c(1:12)

z <- 0.5

n <- NULL

for(i in 1:length(mas)) {

n[i] <- max(mas) * z ^ (i - 1) }