with Ada.Text_IO; use Ada.Text_IO; generic type T_Element is digits <>; N: Positive; package Vector is type T_Vecteur_Element is array (0..N-1) of T_Element; type T_Vecteur_Natural is array (0..N-1) of Natural; -- on permet l'affichage direct des T_Element package Text_T_Element is new Ada.Text_IO.Float_IO(Num => T_Element); use Text_T_Element; procedure initialize(vec: in out T_Vecteur_Element); procedure initialize(vec: in out T_Vecteur_Element; value: in T_Element); procedure initialize(vec: in out T_Vecteur_Natural); function sum(vec: in T_Vecteur_Element) return T_Element; procedure put(vec: in T_Vecteur_Element); procedure put(file: in out Ada.Text_IO.File_Type; vec: in T_Vecteur_Element); procedure put(file: in out Ada.Text_IO.File_Type; vec: in T_Vecteur_Natural); procedure sort_with_index_desc(vec: in out T_Vecteur_Element; vec_index: in out T_Vecteur_Natural); end Vector;