Construit un tableau d'entiers positifs strictement croissants.
Procédure Tableau_crois (@t: tab; n: entier) Début Répéter Écrire ("Donner élément 1 du tableau") Lire(t[0]) Jusqu'à (t[0] ≥ 0) Pour i de 1 à n-1 faire Répéter Lire(t[i]) Jusqu'à (t[i] ≥ 0 et t[i] > t[i-1]) Fin Pour Fin