Prog Caml : Ecrire la fonction tableau_tous_positifs

Écrire une fonction tableau_tous_positifs qui prend en paramètre un tableau d'entiers, et qui renvoie vrai si toutes les valeurs contenues dans le tableau sont positives ou nulles.

Attention : on utilisera, comme dans l'exercice précédent, une boucle : for i = 0 to pred taille do.

Code à compléter Caml

let read_int() = Scanf.scanf " %d" (fun x -> x);;
 
let read_int_array () =
  let taille = read_int() in
  let tab = Array.make taille 0 in
  for i = 0 to pred taille do
     let valeur = read_int() in
     tab.(i) <- valeur;
  done;
  tab
;;
 
let tableau_tous_positifs tab =
(*à compléter*)  
 ;;
 
print_string ( string_of_bool ( tableau_tous_positifs (read_int_array () ) ) );;