Prog Caml : Ecrire la fonction somme_tableau_entiers

Ecrivez une fonction somme_tableau_entiers qui prend en paramètre un tableau d'entiers et qui retourne la somme de tous les entiers qui sont contenus dans ce tableau. Si le tableau est vide, le code doit retourner zéro.

Code à compléter Caml

let read_int() = Scanf.scanf " %d" (fun x -> x);;

let lit_tableau () = 
  let s = read_int() in
  Array.init s (fun i -> read_int()) ;;

let somme_tableau_entiers tab =
(* à compléter *)
;;

print_int (somme_tableau_entiers (lit_tableau()));;