# soma
# Autor
# 06/03/2020
# Somar os elementos de um vetor
rm(list = ls())

# vetor
vec <- c(1,2,3,4)
# comprimento do vetor
n <- length(vec)

# soma
soma <- 0
for(i in 1:n){
  soma <- soma + vec[i]
}
soma
cat('A soma do vetor é igual a: ', soma, '\n')