# add up all of the multiples of 5

# set up base_vector
base_vector<--45:60

# set up null vector for the answer

fives<-NULL

# set up total

total<-NULL

# set up loop

for (i in seq(base_vector)){

# set up if statement
  
  if(base_vector[i]%%5==0){
    
    #copy all multiples of 5 into fives
    fives<-c(fives,base_vector[i])
    }
}
# print out answer
fives

# print out sum of all elements in fives
sum(fives)