Proceso Asignatura
//Una asignatura tiene varios grupos, cada uno con cierta cantidad
//de estudiantes, cada alumno tiene una nota en esa asignatura.
//Determinar la nota promedio de cada grupo, la mayor y la menor
//nota de cada grupo, cuales aprobaron la asignatura en cada grupo
NGrupos <- 0; //Numero de grupos
Nestud <-0; //Numero de estudiantes en el grupo
Nota <- 0; //La nota del estudiante
NotaGr <- 0; //La nota del grupo
NotaMa <- 0; //La nota mayor
NotaMe <- 5; //La nota menor
Aproba <- 0; //Los que aprobaron
I <- 1; //Contador 1
I2 <- 1; //Contador 2
//Comenzamos
Escribir "Digite el numero de grupos"
Leer NGrupos;
Repetir
Escribir "Digite la cantidad de estudiantes del grupo ", I;
Leer Nestud
Mientras (I2<=Nestud) Hacer
Escribir "Digite la nota del estudiante ", I2, " del grupo ", I;
Leer Nota
NotaGr <- NotaGr+Nota
Si Nota>NotaMa Entonces
NotaMa <- Nota
FinSi
Si Nota<NotaMe Entonces
NotaMe <- Nota
FinSi
Si Nota>=3 Entonces
Aproba <- Aproba + 1
FinSi
I2 <- I2+1;
FinMientras
Escribir "El promedio del grupo ", I, " fue: ", NotaGr/Nestud
NotaGr <- 0;
I <- I + 1;
I2 <- 1;
Hasta Que (I>NGrupos)
Escribir "El total de alumnos que gano la asignatura fue: ", Aproba;
Escribir "La Mayor nota fue: ", NotaMa;
Escribir "La Menor nota fue: ", NotaMe;
FinProceso