procedure min_max(E v:vecteur de 20 réel, S min : réel, S max : réel)
{
        variable i : entier
        
        min <-- v[0]
        max <-- v[0]
        
        Pour i de 1 à 19
        {
                Si (min > v[i]) alors
                        min <-- v[i]
                sinon
                        Si (max < v[i]) alors
                                max <-- v[i]
        }
}

procedure min_max_generique(E v:vecteur de réel, E taille : entier , S min : réel, S max : réel)
{
        variable i : entier
        
        min <-- v[0]
        max <-- v[0]
        
        Pour i de 1 à taille-1
        {
                Si (min > v[i]) alors
                        min <-- v[i]
                sinon
                        Si (max < v[i]) alors
                                max <-- v[i]
        }
}

procedure saisie_vecteur(E/S vect : vecteur de réel, E nbelts : entier)
{
        variable i : entier

        Pour i de 0 à nbelts - 1
        {
                Afficher("Saisir le ",i+1,"ème élément.\n")
                Saisir(vect[i])
        }
}

Algorithme Test_min_max
{
        constante entier TAILLE <-- 20
        variable vect : vecteur de TAILLE réel
                 minimum, maximum : réel
        
        saisie_vecteur(vect, TAILLE)
//        min_max(vect,minimum, maximum)
//        Afficher("Le minimum du vecteur est : ", minimum, " et le maximum est : ", maximum, ".\n") 
        min_max_generique(vect, TAILLE, minimum, maximum)
        Afficher("Le minimum du vecteur est : ", minimum, " et le maximum est : ", maximum, ".\n") 
        
}