Algorithme Moyenne
{

        constante entier TAILLE <-- 20
        variable v : vecteur de TAILLE réel
                 i, nn, np : entier
                 sommen, sommep, moyp, moyn : réel
        
        Afficher("Cet algorithme saisit, calcule et affiche la moyenne des éléments strictement positifs et strictement négatif.\n")
        
        // Saisie
        Pour i de 0 à TAILLE - 1
        {
                Afficher("Veuillez saisir le ", i+1, "ème terme")
                Saisir(v[i])
        }
        
        // Calcul des moyennes
        sommen <-- 0
        sommep <-- 0
        nn <-- 0
        np <-- 0
        
        Pour i de 0 à TAILLE - 1
        {
                
                Si (v[i]<0) alors
                {
                        sommen <-- sommen + v[i]
                        nn <-- nn + 1
                }
                sinon
                {
                        Si (v[i]>0) alors
                        {
                                sommep <-- sommep + v[i]
                                np <-- np + 1
                        }
                }
        }
        
        Si (np = 0) alors
        {
                moyp <-- 0
        } 
        sinon
        {
                moyp <-- sommep / np
        }
        
        Si (nn = 0) alors
        {
                moyn <-- 0
        } 
        sinon
        {
                moyn <-- sommen / nn
        }
        
        // Affichage
        Afficher("La moyenne des nombres positifs dans le vecteur et la moyenne des nombres négatifs dans le vecteur sont respectivement ",moyp, " et ", moyn, ".\n")
}