[Algo]
procedure GenereTabInt (TabInt : in_out tableau_de entier)
debut

declarer Val : entier;
pour (i variant_de 0 a taille (TabInt) – 1)
faire
afficher ("entrer la ", i, "eme valeur du tableau : ");
saisir (Val);
TabInt [i] <- Val;
ffaire
fin

procedure AfficheTabInt (TabInt : in tableau_de entier)
debut
pour (i variant_de 0 a taille(TabInt) – 1)
faire
afficher (TabInt [i], " ");
ffaire
ligne_suivante;
fin

algorithme UtilisationDeAfficheTabIntEtDeGenereTabInt
debut
declarer N : entier_naturel;
afficher ("entrer la taille du tableau : ");
saisir (N);

declarer TabInts : tableau_de N entier;

GenereTabInt (TabInts);

AfficheTabInt (TabInts);
fin
[/Algo]