procédure saisie(E/S v: vecteur de TAILLE réel)
{
        variable i : entier
        
        // Saisie
        Pour i de 0 à TAILLE - 1
        {
                Afficher("Veuillez saisir le ", i+1, "ème terme")
                Saisir(v[i])
        }
}

procedure affichage(E v : vecteur de TAILLE réel)
{
        variable i : entier
        
        Pour i de 0 à TAILLE - 1
        {
                Afficher("v[",i,"]=",v[i], " ")
        }
}

fonction plusgrand(E v : vecteur de TAILLE réel):réel
{
        variable i : entier
                 pg : réel
        
        pg <-- v[0]
        Pour i de 1 à TAILLE - 1
        {
                Si (pg < v[i]) alors
                {
                        pg <-- v[i]
                }
        }
        
        retourne pg
}

fonction pluspetit(E v : vecteur de TAILLE réel):réel
{
        variable i : entier
                 pp : réel
        
        pp <-- v[0]
        Pour i de 1 à TAILLE - 1
        {
                Si (pp > v[i]) alors
                {
                        pp <-- v[i]
                }
        }
        
        retourne pp
}


Algorithme PGPP
{

        constante entier TAILLE <-- 20
        variable v : vecteur de TAILLE réel
        
        Afficher("Cet algorithme saisit, cherche et affiche la plus petite et la plus grande valeur du vecteur.\n")
        
        saisie(v)
        
        // Affichage
        Afficher("La plus petite valeur du vecteur est ", pluspetit(v), " et la plus grande valeur du vecteur est ",plusgrand(v),".\n")
}