Ejercicio PSeInt: Promedio de notas aprobadas y reprobadas

“Dado una cantidad de N notas de un estudiante, calcular:”

• Cuántas notas tiene reprobadas.
• Cuántas notas aprobadas.
• El promedio de notas.
• El promedio de notas aprobadas y reprobadas.

Algoritmo

Proceso notas_mientras
    Definir i, aprobadas, reprobadas, notas Como Entero
    Definir sumaa, sumab, nota, promedio, promedioa, promedior Como Real
   
    Escribir "Ingrese la cantidad de notas";
    Leer notas;
    
    i<-1;
    aprobadas<-0;
    reprobadas<-0;
    sumaa<-0;
    sumab<-0;
    Escribir "Ingrese las ", notas, " notas";
    Mientras i<=notas Hacer
        Leer nota;
       
        Si nota>=4 Entonces
            sumaa<-sumaa+nota;
            aprobadas<-aprobadas+1;
        Sino
            sumab<-sumab+nota;
            reprobadas<-reprobadas+1;
        Fin Si
       
        i<-i+1;
    Fin Mientras
   
    promedio<-(sumaa+sumab)/(aprobadas+reprobadas);
    promedioa<-sumaa/aprobadas;
    promedior<-sumab/reprobadas;
   
    Escribir "La cantidad de notas aprobadas son: ",aprobadas;
    Escribir "La cantidad de notas reprobadas son: ",reprobadas;
    Escribir "El promedio total es de: ", promedio;
    Escribir "El promedio de aprobadas es: ", promedioa;
    Escribir "El promedio de reprobadas es: ", promedior;
FinProceso