maxV <- function(V) {
    i <- 1
    N = length(V)
    meuMax <- V[1]
    while (i <= N) {
      if (meuMax < V[i]) {
          meuMax <- V[i]
      }  
      i <- i+1    
    }
    return(meuMax)
}