Exercise 4.3 Problem 3
Find the maximum product of two numbers that have a sum of 100
x <- runif(1000, 1, 100)
y <- 100-x
z <- x * y
summary(z)
##     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
##    0.116 1111.000 1877.000 1684.000 2362.000 2500.000
The maximum product is 2500