jamtidur <- c(7,8,6,4,8,7,9)

cektidur <- function(x){
  for (i in 1:7){
    cat("Hari ke-",i,": tidur selama ",x[i]," jam\n")
  }
}
cektidur(jamtidur)
## Hari ke- 1 : tidur selama  7  jam
## Hari ke- 2 : tidur selama  8  jam
## Hari ke- 3 : tidur selama  6  jam
## Hari ke- 4 : tidur selama  4  jam
## Hari ke- 5 : tidur selama  8  jam
## Hari ke- 6 : tidur selama  7  jam
## Hari ke- 7 : tidur selama  9  jam