Algoritmo Ejercicio_Array
Definir numero, i, tamano Como Entero;
Escribir "Ingrese Tamaño del Vector:";
Leer tamano;
Dimension numeros[tamano];
Para i<-1 Hasta tamano Hacer
Escribir "Ingrese Numero:", i;
Leer numero;
numeros[i]=numero;
FinPara
Definir op Como Entero;
Escribir "Ingrese la opcion que desea realizar: ";
Escribir "1.- Valores inferiores al promedio";
Escribir "2.- Valores pares suministrados";
Escribir "3.- Valores que son número primo";
leer op;
Segun (op) Hacer
1:
Definir suma Como Entero;
Definir promedio Como Real;
Para i<-1 Hasta tamano Hacer
suma = suma + numeros[i];
Fin Para
promedio = suma/tamano;
Escribir "El Promedio es: ", promedio, " Y los inferiores a este son: ";
Para i<-1 Hasta tamano Hacer
Si (numeros[i] < promedio) Entonces;
Escribir numeros[i];
FinSi
Fin Para
2:
Para i<-1 Hasta tamano Hacer
Si (i mod 2 == 0) Entonces;
Escribir numeros[i];
FinSi
Fin Para
3:
Definir j, elNumero, contador Como Entero;
Para j<-1 Hasta tamano Hacer
elNumero = numeros[j];
contador = 0;
Para i<-1 Hasta tamano Hacer
Si ((elNumero % i) =0) Entonces;
contador <- contador + 1;
FinSi
Fin Para
Si (contador = 2) Entonces
Escribir "El Número: ", elNumero, " es primo";
FinSi
FinPara
FinSegun
FinAlgoritmo