Respuesta:
El algoritmo tiene algunos problemas que podrían estar afectando el cálculo del promedio y el funcionamiento general del programa. A continuación, te muestro cómo podrías corregirlo siguiendo las instrucciones del enunciado y solucionando el problema del cálculo del promedio.
### Correcciones y mejoras al algoritmo
1. **Generación de números aleatorios**: El algoritmo actual no genera números aleatorios en el rango de 10 a 20, lo que es un requerimiento del enunciado. Es necesario implementar esta funcionalidad.
2. **Longitud del arreglo**: Según el enunciado, el tamaño del arreglo debería ser `N`, donde `N` es un valor que puede ser diferente de 11. Debemos hacer que el tamaño del arreglo sea dinámico y ajustable.
3. **Cálculo del promedio**: El problema del promedio es que se divide por un valor fijo (11), en lugar de dividirse por el tamaño real del arreglo.
4. **Presentación del menú**: Es buena práctica crear un subalgoritmo para presentar el menú, como se solicita en las instrucciones.
Aquí te presento el algoritmo corregido y mejorado:
```
// Algoritmo principal
Algoritmo principal
Definir N, opcion Como Entero
Definir lista Como Real
Definir prom Como Real
Escribir "Ingrese la cantidad de números a generar (mínimo 5):"
Leer N
// Validar que N sea al menos 5
Si N < 5 Entonces
Escribir "La cantidad mínima de números es 5. Estableciendo N=5."
N <- 5
FinSi
Dimension lista(N) // Arreglo de N posiciones
// Llamamos al subalgoritmo que genera la lista
generar_numeros_aleatorios(lista, N)
Repetir
presentar_menu()
Leer opcion
Segun opcion Hacer
1:
mostrar_numeros(lista, N)
2:
calcular_promedio_arreglo(lista, N, prom)
mostrar_promedio(prom)
3:
mostrar_suma_divisores(prom)
4:
mostrar_ordenados(lista, N)
5:
Escribir "Saliendo del programa..."
De Otro Modo:
Escribir "Esta opción no existe"
FinSegun
Hasta Que opcion = 5
FinAlgoritmo
// SubAlgoritmo para presentar el menú
SubAlgoritmo presentar_menu
Escribir "Menu de opciones"
Escribir "(1) Mostrar los números generados"
Escribir "(2) Calcular y mostrar el promedio del arreglo"
Escribir "(3) Calcular y mostrar la suma de los divisores del promedio"
Escribir "(4) Mostrar los números de menor a mayor"
Escribir "(5) Salir"
Escribir "Seleccione una opción:"
FinSubAlgoritmo
// SubAlgoritmo para generar números aleatorios
SubAlgoritmo generar_numeros_aleatorios(lista, N)
Definir i Como Entero
Para i <- 0 Hasta N-1 Con Paso 1 Hacer
lista(i) <- Azar(11) + 9 // Genera números aleatorios entre 10 y 20
FinPara
FinSubAlgoritmo
// SubAlgoritmo para calcular y mostrar el promedio del arreglo
SubAlgoritmo calcular_promedio_arreglo(lista, N, prom)
Definir i Como Entero
Definir acum Como Real
acum <- 0 // Inicializar la variable acumulador para la suma
Para i <- 0 Hasta N-1 Con Paso 1 Hacer
acum <- acum + lista(i) // Acumular la suma de los números
FinPara
prom <- acum / N // Calcular el promedio correctamente como número real
FinSubAlgoritmo
// SubAlgoritmo para mostrar el promedio
SubAlgoritmo mostrar_promedio(prom)
Escribir "El promedio de los números generados es: ", prom
FinSubAlgoritmo
// SubAlgoritmo para mostrar la suma de los divisores del promedio
SubAlgoritmo mostrar_suma_divisores(prom)
Definir suma_divisores Como Entero
suma_divisores <- 0
Definir i Como Entero
Para i <- 1 Hasta Trunc(prom) Con Paso 1 Hacer
Si Trunc(prom) Mod i = 0 Entonces
suma_divisores <- suma_divisores + i
FinSi
FinPara
Escribir "La suma de los divisores del promedio es: ", suma_divisores
FinSubAlgoritmo
// SubAlgoritmo para mostrar los números generados
SubAlgoritmo mostrar_numeros(lista, N)
Definir i Como Entero
Para i <- 0 Hasta N-1 Con Paso 1 Hacer
Escribir "Número en la posición ", i + 1, ": ", lista(i)
FinPara
FinSubAlgoritmo
// SubAlgoritmo para mostrar los números ordenados
SubAlgoritmo mostrar_ordenados(lista, N)
Definir i, j, aux Como Entero
// Ordenamiento de la lista (Método de burbuja)
Para i <- 0 Hasta N-2 Hacer
Para j <- 0 Hasta N-2-i Hacer
Si lista(j) > lista(j+1) Entonces
aux <- lista(j)
lista(j) <- lista(j+1)
lista(j+1) <- aux
FinSi
FinPara
FinPara
Escribir "Números de menor a mayor:"
Para i <- 0 Hasta N-1 Hacer
Escribir lista(i)
FinPara
FinSubAlgoritmo
```
### Explicación de las correcciones
1. **Generación de números aleatorios**: Ahora se generan números aleatorios entre 10 y 20, y se almacenan en el arreglo `lista`.
2. **Promedio**: El cálculo del promedio se corrige dividiendo la suma de los elementos entre `N`, que es el tamaño del arreglo.
3. **Subalgoritmo del menú**: Se creó un subalgoritmo `presentar_menu` para organizar mejor el código.
4. **Arreglo dinámico**: El tamaño del arreglo se define en función de `N`, permitiendo mayor flexibilidad.
5. **Ordenamiento**: El algoritmo de burbuja se ajustó para funcionar correctamente con un arreglo de tamaño `N`.
Con estas correcciones, el algoritmo debería funcionar correctamente y no debería darte un promedio de 0, siempre y cuando los números aleatorios se generen adecuadamente.
