Algorithme MoyennePositifNegatif
{
        constante entier NB_ELEMENTS <-- 20
        variable v : vecteur de NB_ELEMENTS réel
                 i, np, nn : entier
                 sp, sn, mp, mn : réel
        
        Pour i de 0 à NB_ELEMENTS - 1
        {
                Afficher("Saisir le ",i+1,"ème élément.\n")
                Saisir(v[i])
        }
        
        np <-- 0
        nn <-- 0
        sp <-- 0
        sn <-- 0
        
        Pour i de 0 à NB_ELEMENTS - 1
        {
                Si (v[i]>0) alors
                {
                        np <-- np + 1
                        sp <-- sp + v[i]
                }
                sinon
                {       Si (v[i]<0) alors
                        {
                                nn <-- nn + 1
                                sn <-- sn + v[i]
                        }
                }
        }
        
        mp <-- 0
        mn <-- 0
        
        Si (np != 0) alors
                mp <-- sp / np

        Si (nn != 0) alors
                mn <-- sn / nn
                
        Afficher("La moyenne des nombres positifs est : ", mp,".\n")
        Afficher("La moyenne des nombres négatifs est : ", mn,".\n")
        Afficher("Le nombre de nombres à zéro dans le vecteur était : ", NB_ELEMENTS - nn - np,".\n")
}