{ Fonction de recherche et retour de l'indice   }
{ de la valeur maximale d'un tableau d'entier   }
{ restreint à ses n+1 premieres valeurs         }
{ n : L'indice inclus jusqu'auquel la recherche }
{     de valeur maximale est réalisée           }
{ t : Le tableau d'entier où la recherche       }
{     de valeur maximale est réalisée           }
  
entier fonction indiceMaximum(-> entier n,
                              -> entier [] t)
  entier iMax <- 0
  entier i
  pour i de 0 à n faire
    si t[i] > t[iMax] alors
      iMax <- i
    fsi
  fait
  retourner iMax
fin fonction
  
{ Action de tri "par selection"                 }
{ par ordre croissant des valeurs contenues     }
{ dans un tableau d'entiers                     }
{ t : Le tableau d'entiers à trier              }
{     par ordre croissant                       }

action triSelection(-> entier [] t ->)
  entier i
  entier aux
  entier iMax
  entier n <- longueur(t)
  pour i de 1 à n-1 faire
    iMax <- indiceMaximum(n-i,t)
    si iMax <> n-i alors
      aux <- t[iMax]
      t[iMax] <- t[n-i]
      t[n-i] <- aux
    fsi
  fait
fin action