my_sum <- cumsum(1:100)

# solution
my_sol <- (which(my_sum > 50)[1])
my_answers <- make_random_answers(my_sol)

#check_answers(my_answers)

Question

If we performed a cumulative sum of a sequence between 1 and 100, in what element would this sum go beyond the value of 50?

exams::answerlist(my_answers, markup = "markdown")

Solution


Meta-information

extype: num exsolution: r my_sol exname: "numeric " exshuffle: TRUE



msperlin/afedR documentation built on Sept. 11, 2022, 9:49 a.m.