ehPalindromo2 <- function(vet){
  tam <- length(vet)
  ehpalindromo <- T
  for(i in(1:tam)){
    print(paste0(vet[i],vet[tam - i + 1]))
    if(vet[i] != vet[tam - i + 1] ){
      ehpalindromo <- F
    }
  }
  return(ehpalindromo)
}
g<-c(1,2,3,3,2,1)
#f<-ehPalindromo2(g)
#print(f)
      



maioDoVetorWhile2 <- function(vet){
  max <- - Inf         
  i <- 1 
  while(i <= length(vet)){
    
    if(vet[i] > max){
      max <- vet[i]
    } 
    
    
    
    i <- i + 1
  }
  return(max)
}	



ehcrescente<-function(vet){
  tam<-length(vet) 
  a<-0
  for(i in(1:tam)){
    if(vet[i] < vet[i+1]){
      a<-a+1
    }
  }
  if(a == tam){
    return(T)
  }
  return(F)
}


a<-c(1,2,3,4,5,6)



n <- (1:50)
n[1] <- "arroz"
n[2] <- "feijao"
print(n)

a <- c(1)
b <- 5
a<- c(a,b)
print(a)

x <- read.csv("testesssafas.csv")
print(x)




  
#p