Le nombre des nombres positifs et négatifs d’une série des nombres introduit par le clavier se termine par 0

By admin On Nov 18, 2021

Le nombre des nombres positifs et négatifs d’une série des nombres introduit par le clavier se termine par 0

Algorithmique Pos_Neg;
Var 
    n, Positif, Negatif: entier;
Debut
    Positif := 0;
    Negatif := 0;
    Lire(n);
    TantQue (n <> 0) Faire
        Si (n > 0) Alors
            Positif := Positif + 1;
        Sinon
            Negatif := Negatif + 1;
        FinSi
        Lire(n);
    FinTantQue
    Ecrire("Le nombre des nombres positifs est: ", Positif);
    Ecrire("Le nombre des nombres négatifs est: ", Negatif);
Fin