> a <- c(104, 19, 20, 19, 20, 100, 20, 21, 21, 24)
> sort(a)
 [1]  19  19  20  20  20  21  21  24 100 104
> print(a)
 [1] 104  19  20  19  20 100  20  21  21  24
> median(a)
[1] 20.5
> mean(a)
[1] 36.8