TM.Komstat_Muhammad Ahnaf Al Fawwaz

jumlah_nilai <- function(nilai) {
  total <- 0
  for (i in nilai){
    total <- total + i}
  return(total)}

nilai <- c(80, 75, 90, 85, 70)
nilai

## [1] 80 75 90 85 70

hasil <- jumlah_nilai(nilai)
hasil

## [1] 400

cek_kelulusan <- function(nilai) {
  if (nilai >= 60) {
    return("Lulus")
  } else {
    return("Tidak Lulus")}}
nilai <- 75
hasil <- cek_kelulusan(nilai)
nilai

## [1] 75

hasil

## [1] "Lulus"