with Gada.Text_IO ;
procedure Mission3 is
package Txt renames GAda.Text_IO ;
type T_Ints is array (Integer range <>) of Integer ;
procedure Afficher (Tab : T_Ints) is
begin
Txt.Put_Line("Contenu du tableau : ") ;
for No in Tab'Range loop
Txt.Put( Integer'Image(Tab(No)) ) ;
if No < Tab'Last then
Txt.Put(", ") ;
else
Txt.Put_Line(".") ;
end if ;
end loop ;
end Afficher ;
function Creer (Taille : Integer) return T_Ints is
Resultat : T_Ints(1..Taille) ;
begin
for No in Resultat'Range loop
Resultat(No) := No ;
end loop ;
return Resultat ;
end Creer ;
begin
Afficher(Creer(5)) ;
Afficher(Creer(15)) ;
end Mission3 ;