Algorithme TriSelection;
Const N = 100;
Var
t: tableau [1-N] de Elément;
X: Elément;
val, i, j, k: Entier;
Début
Écrire("Lecture des éléments du tableau")
Pour i de 1 à N faire
Écrire("Entrer le ", i, "ème élément")
Lire(t[i]);
Fin Pour
Pour i de 1 à N faire
j ← i;
Pour k de i + 1 à N faire
Si t[k] < t[j] alors
j ← k;
Fin Si
Fin Pour
val ← t[j];
t[j] ← t[i];
t[i] ← val
Fin Pour
Écrire("Tableau trié :")
Pour i de 1 à N faire
Écrire(t[i])
Fin Pour
Fin.