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])
        }
}

fonction moyenne_des_positifs(E v: vecteur de réel, E nbelts : entier) : réel
{
        variable i, n : entier
                 s, m : réel
                 
        n <-- 0
        s <-- 0

        Pour i de 0 à nbelts - 1
        {
                Si (v[i]>0) alors
                {
                        n <-- n + 1
                        s <-- s + v[i]
                }
        }
        
        m <-- 0
        
        Si (n != 0) alors
                m <-- s / n

        retourne m
}

fonction moyenne_des_negatifs(E v: vecteur de réel, E nbelts : entier) : réel
{
        variable i, n : entier
                 s, m : réel
                 
        n <-- 0
        s <-- 0

        Pour i de 0 à nbelts - 1
        {
                Si (v[i]<0) alors
                {
                        n <-- n + 1
                        s <-- s + v[i]
                }
        }
        
        m <-- 0
        
        Si (n != 0) alors
                m <-- s / n

        retourne m
}

procedure moyenne_negatifs_positifs(E vect: vecteur de réel, E N: entier, S mp : réel, S mn : réel)
{
        mp <-- moyenne_des_positifs(vect, N)
        mn <-- moyenne_des_negatifs(vect, N)
}

Algorithme MoyennePositifNegatif
{
        constante entier NB_ELEMENTS <-- 20
        variable v : vecteur de NB_ELEMENTS réel
                 mp, mn : réel
        
        saisie_vecteur(v, NB_ELEMENTS)
        moyenne_negatifs_positifs(v, NB_ELEMENTS, mp, mn)
                
        Afficher("La moyenne des nombres positifs est : ", mp,".\n")
        Afficher("La moyenne des nombres négatifs est : ", mn,".\n")
}