problem-1.16

problem-1.16  We use scan() as an alternative to c().
> bill = scan()
1: 46 33 39 37 46 30 48 32 49 35 30 48
13:
Read 12 items
> sum(bill)
[1] 473
> max(bill)
[1] 49
> min(bill)
[1] 30
> sum(bill > 40)
[1] 5
> sum(bill > 40)/length(bill)
[1] 0.4167