procédure saisie(E/S v: vecteur de TAILLE entier)
{
        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 entier, E nbelements : entier)
{
        variable i : entier
        
        Pour i de 0 à nbelements - 1
        {
                Afficher("v[",i,"]=",v[i], " ")
        }
}

procedure separation(E v : vecteur de TAILLE entier, E/S vi : vecteur de TAILLE entier, E/V vp : vecteur de TAILLE entier, S nbi : entier, S nbp : entier)
{
        variable i : entier
        nbi <-- 0
        nbp <-- 0
        
        Pour i de 0 à TAILLE - 1
        {
                Si (v[i] mod 2 = 0) alors
                {
                        // on met ici les pères
                        vp[nbp] <-- v[i]
                        nbp <-- nbp + 1 
                }
                sinon
                {
                        // On met ici les mères !! Ahahahahah !
                        vi[nbi] <-- v[i]
                        nbi <-- nbi + 1                 
                }
        }
        
}

Algorithme Divorce
{

        constante entier TAILLE <-- 20
        variable v,vp,vi : vecteur de TAILLE entier
                 nbi,nbp : entier
        
        Afficher("Cet algorithme saisit, et sépare dans deux vecteurs les nombres impairs et pairs d'un premier vecteur.\n")
        
        saisie(v)
        
        separation(v,vi,vp,nbi,np)
        
        // Affichage
        Afficher("Le vecteur initial est :".\n")
        affichage(v,TAILLE)
        Afficher("Le vecteur des pairs est :".\n")
        affichage(vp,nbp)
        Afficher("Le vecteur des impairs est :".\n")
        affichage(vi,nbi)
}