v <- c()

num <- as.numeric(readline("Digite um número inteiro, por favor. Termine o programa com um número 0: "))
print(num)

while (num >= 0) {
  v <-  c(v,num)  
  num <- as.numeric(readline("Digite um número inteiro, por favor. Negativo para terminar: "))
  print(num)
}

vetorEhcrescente = TRUE

i = 1
tamanhoC = length(v)

while (i<tamanhoC) {
  if (v[i]>=v[i+1]) {
    vetorEhcrescente = FALSE
  }
  i = i + 1
}

if (vetorEhcrescente == TRUE) {
  print("O vetor é crescente")
} else {
  print("O vetor não é crescente")
}