a <- c(104, 19, 20, 19, 20, 100, 20, 21, 21, 24) sort(a) print(a) median(a) mean(a)