bonjour, j'ai un tableau à trier mais ca ne marche pas quand j'execute.
VOici mon sous menu
6: Begin
for iEtape:=1 to icompte-1 do
Begin
writeln('* 1');
iMin:=Tabvecteur[iEtape];
iPos:=iEtape;
writeln('*2');
for i:=iEtape+1 to iCompte do
begin
writeln('*3');
if (Tabvecteur[i]<iMin)then
begin
writeln('*4');
iMin:=Tabvecteur[i];
iPos:=i;
end;
End;
iMemoire:=Tabvecteur[iEtape];
Tabvecteur[iEtape]:=iMin;
Tabvecteur[iPos]:=iMemoire;
End; // fin for
end; //fin6
