Programar una función cuyo desempeño sea generar un vector con elementos enteros positivos aleatorios entre 0 y 100, llamado "a", de longitud "n" (argumento).

f <- function(n) {
    a <- 0
    for (i in 1:n) {
        a[i] <- sample(1:100, 1)
    }
    return(a)
}