M1102-TD2 Exercie4 Corrigé

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