Instrucciones:

Se nos a pedido escribir un programa que resuma los resultados recibidos de una lista de 10 estudiantes junto a cada nombre se anoto un número, 1 si el estudiante aprobó el examen, 2 si reprobó. Escriba un resumen de los resultados de la prueba indicando el número de estudiantes que aprobaron y l número de estudiantes que reprobaron, si el número de estudiantes que aprobaron es mayor a 8 la Universidad sera capaz de aumentar la colegiatura.

1. Proceso Universidad_Ejercicio_CrisoftPc
2. //Desarrollado por Cristian Alejandro
3. //Fut. Ingeniero en Sistemas
4. //Carnet: 5190-10-9778
5. //Sede Villa Nueva
6. dimension nombresP(10)
7. dimension nombresG(10)
8. posicionAcG <- 1
9. posicionAcP <- 1
10. TotalG<-0
11. nota <-0
12. x<-1
13. escribir 'ingrese un 1 si aprobo, 2 si reprobo'
14. mientras x <= 10 Hacer
15. escribir 'ingrese el nombre del alumno'
16. leer nombre
17. escribir 'resultado (1 aprobado, 2 reprobado)'
18. leer nota
19. si (nota > 0) y (nota < 3) entonces
20. si nota = 1 Entonces
21. nombresG(posicionAcG)<- nombre
22. posicionAcG<-posicionAcG+1
23. TotalG<- TotalG +1
24. Sino
25. nombresP(posicionAcP)<- nombre
26. posicionAcP<-posicionAcP+1
27. FinSi
28. x<-x+1
29. Sino
30. escribir 'ingrese un valor valido, intente de nuevo'
31. FinSi
32. FinMientras
33. // muestra si se puede aumentar la colegiatura
34. escribir '------------------------------------- '
35. escribir '------------------------------------- '
36. si TotalG > 8 Entonces
37. escribir "Aumente la colegiatura del alumno"
38. Sino
39. escribir "No puede aumentar la Colegiatura"
40. escribir " haga ganar a : ", 9 - TotalG
41. escribir "para llegar a la meta"
42. FinSi
43. escribir '------------------------------------- '
44. escribir '------------------------------------- '
45. // muestra los resultados
46. si (TotalG >0) entonces
47. escribir '------------------------------------- '
48. escribir ' personas que ganaron:'
49. escribir '------------------------------------- '
50. para x <- 1 hasta TotalG Hacer
51. escribir nombresG(x)
52. FinPara
53. FinSi
54. TotalP<- 10 - TotalG
55. escribir '------------------------------------- '
56. escribir ' Personas que perdieron'
57. escribir '------------------------------------- '
58. si TotalP >0 entonces
59. Para x <- 1 Hasta TotalP Hacer
60. escribir nombresP(x)
61. FinPara
62. FinSi
63. FinProceso

Diagrama de flujo