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