1) 
    x <- 1:10
    y <- seq(0,5, length=10)
    z <- runif(10)

a)  Sol 1:
     min_x <- min(x)
     max_x <- max(x)
   Sol. 2:
	  minmax_x <- range(x)
   

b)   sum_x <- sum(x)
     sum_y <- sum(y)
     sum_z <- sum(z)
c)  x + y

d)  x - y - z

e)  prod_y <- prod(y)

f)  w <- c(x, y, z)
	 size <- floor(length(w)*0.3)
    campione1 <-  sample(w, size)
	 rem_w <- setdiff(w, campione1)
	 campione2 <- sample(rem_w, size)
	 print(intersect(campione1, campione2))
2
a) 
     x <- c(2, 2, 0, 0, 5,
            8, 3, 4, 1, 0, 
            0, 7, 1, 7, 1,
            5, 4, 0, 4, 0);
	codici <- paste("Lav", 0:19, sep="");
	names(x) <- codici

b)  	x["Lav6"]

c)   cat("Lavoratori senza giorni di malattia : ", sum(x==0), "\n")
     cat("I cui codici sono:", codici[x==0], "\n") 
     
d)  x[setdiff(codici, c("Lav2", "Lav11"))]