maxM2 <- function(M) {
    Nlinhas <- dim(M)[1]
    Ncolunas <- dim(M)[2]
    i <- 1
    meuMax <- M[1,1]
    while (i <= Nlinhas) {
        j <- 1
        while (j <= Ncolunas) {
            if (meuMax < M[i,j]) {
                meuMax <- M[i,j]
            }  
            j <- j+1    
        }
        i <- i+1
    }
    return(meuMax)
}