Proceso PROMEDIO (EJERCICIO 12)
Repetir
CONTADOR1<-1
CONTADOR2<-1
CONTADOR3<-1
Escribir "DIGITE EL NUMERO DE GRUPOS"
Leer G
Mientras G>=CONTADOR1 Hacer
Escribir "DIGITE EL NUMERO DE ALUMNOS EN CADA GRUPO"
Escribir "GRUPO #",CONTADOR1
Leer N
CONTADOR1<-CONTADOR1+1
Mientras N>=CONTADOR2 Hacer
Escribir "DIGITE EL NOMBRE DEL ALUMNO #",CONTADOR2
Leer NOMBRE
Escribir "DIGITE EL NUMERO DE MATERIAS"
Leer M
CONTADOR2<-CONTADOR2+1
Mientras M>=CONTADOR3 Hacer
Escribir "DIGITE LAS CALIFICACIONES DE LA MATERIA #",CONTADOR3
Escribir "DIGITE PRIMER CALIFICACION:"
Leer QUIZ1
Escribir "DIGITE SEGUNDA CALIFICACION"
Leer QUIZ2
Escribir "DIGITE TERCER CALIFICACION"
LEER QUIZ3
NOTAS<-(QUIZ1+QUIZ2+QUIZ3)/3
Escribir NOMBRE," SU PROMEDIO DE LA MATERIA ES:",NOTAS
CONTADOR3<-CONTADOR3+1
NA<-NA+NOTAS
ESPERAR 3 SEGUNDOS
Borrar Pantalla
FinMientras
PROMEDIOMA<-NA/M
Escribir NOMBRE," SU PROMEDIO FINAL ES DE ",PROMEDIOMA
Escribir "----------------------------------------------"
NOTAG<-NA/N
Esperar 3 Segundos
Borrar Pantalla
FinMientras
Escribir "EL PROMEDIO DEL GRUPO #",CONTADOR2," ES ",NOTAG
NOTAGLOBAL<-NOTAGLOBAL+NOTAG
FinMientras
NOTAD<-NOTAGLOBAL/G
Escribir "EL PROMEDIO DE LOS ",CONTADOR1," GRUPOS ES ",NOTAD
Esperar 5 Segundos
Borrar Pantalla
Escribir "USAR NUEVAMENTE EL PROGRAMA"
Leer RE
Hasta Que RE="NO" O R="no"
FinProceso
Proceso MENOR_VALOR
Repetir
SUMA<-1
MENO<-99999999999
Escribir "DIGITE LA CANTIDAD DE DATOS A INGRESAR"
Leer N
Mientras N>=SUMA Hacer
Escribir "DIGITE EL NUMERO ",SUMA
Leer NUM
Si NUM<MENO Entonces
Escribir "EL NUMERO MENOR ES ",NUM
MENO<-NUM
Sino
Escribir "EL NUMERO MENOR ES ",MENO
FinSi
SUMA<-SUMA+1
Esperar 5 Segundos
Borrar Pantalla
FinMientras
Escribir "USAR NUEVAMENTE"
Leer R
Hasta Que R="NO"
FinProceso