{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program exemple27 ;

Uses crt;

Type Tableau = Array[1..10] Of Integer ;

Procedure saisie(Var tab:Tableau) ;
Var i:Integer;
Begin
For i:=1 to 10 Do
    Begin
    Write('Entrez la valeur de la case nø',i,'/10 : ') ;
    ReadLn(tab[i]) ;
    End ;
End ;

Procedure tri(Var tab:Tableau) ;
Var i,j,x:Integer ;
Begin
For i:=1 To 10 Do
    Begin
    for j:=i To 10 Do
        Begin
        if tab[i]>tab[j] then
           Begin
           x:=tab[i] ;
           tab[i]:=tab[j] ;
           tab[j]:=x ;
           End ;
        End ;
    End ;
End ;

Procedure affiche (tab:Tableau) ;
Var i:Integer ;
Begin
For i:=1 To 10 Do Write(tab[i],' ') ;
WriteLn ;
End ;

Var tab1,tab2:Tableau ;
    i:Integer ;

BEGIN
ClrScr ;
saisie(tab1);
tab2:=tab1 ;
tri(tab2) ;
WriteLn('S‚rie saisie :') ;
affiche(tab1) ;
WriteLn('S‚rie tri‚e :') ;
affiche(tab2) ;
END.