solarium <- matrix(c(
  120, 250, 180, 300, 150,
  220, 175, 400, 280, 195,
  130, 260, 310, 145, 500,
  210, 190, 275, 330, 160,
  240, 350, 125, 290, 450,
  233, 355, 120, 295, 455,
  600, 300, 120, 300, 450,
  800, 250, 300, 115, 1000,
  300, 15, 225, 136, 5500,
    1, 110, 547, 255, 3500,
    25, 250, 350, 160, 0800,
    33, 25, 14, 3547, 1000000000,
    -800, 18, -2000, 100000000000, 900,
    23,1234567,34,567890,-23
), nrow = 14, ncol = 5, byrow = TRUE)

# La démonstration de la matrice c'est 
print("La matrice de la maladie solaire :")
print(solarium)

# La démonstration du supérieur est 
solar_maximum <- max(solarium)

# La démonstration du minimum c'est 
solar_minimum  <- min(solarium)

# Les résultats sont 
print(paste("Le maximum de la matrice de la maladie solaire est :", solar_maximum ))
print(paste("Le minimum de la matrice de la maladie solaire est :", solar_minimum))