my_sum <- cumsum(1:100) # solution my_sol <- (which(my_sum > 50)[1])
my_answers <- make_random_answers(my_sol) #check_answers(my_answers)
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")
extype: num
exsolution: r my_sol
exname: "numeric "
exshuffle: TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.