procedue trier(tab[N] entier)
debut
var i :entier
temp:entier
for i:=1 to N-1 do
for j:=2 to N do
if tab[i]>tab[j] then
temp:=tab[i]
tab[i]:=tab[j]
tab[j]:=temp
finif
ffor
ffor
fproc
algorithmme tri;
var t:tableau [1..100]d'entier;
x,i,j,n:entier;
debut
lire(n);{la taille de tab}
pour i:=1 à n-1 fair
pour j:=i+1 à n fair
si t[i]>t[j] alors
x:=t[i];
t[i]:=t[j];
t[j]:=x;
fair;
pour i:=1 à n fair
ecrir(t[i]);
Trouvez des réponses à vos questions sur les langages, les frameworks et les astuces de codage. Échangez avec d'autres développeurs passionnés pour améliorer vos compétences en programmation et rester au fait des dernières tendances du secteur.
