//1-SUMAR
SubProceso SUMA()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i)
i<-i+1
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector"
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//SUMAR LOS ELEMENTOS DEL VECTOR
Escribir "Ingrese el Numero de Elementos del Vector a emplear:"
Leer n;
Escribir "********************************************************";
i=1;
Escribir "Sumar los Elementos del Vector";
Escribir "********************************";
Mientras i<=n Hacer
Adicion<-Adicion+Vector(i);
i<-i+1;
FinMientras
Escribir "La Suma de los Elementos de los ", i-1, " primeros elementos es =",Adicion;
FinSubProceso
//2-PROMEDIO
SubProceso PROMEDIO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i);
i<-i+1;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector";
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//SUMA Y PROMEDIO DE LOS ELEMENTOS DEL VECTOR
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar el Promedio de los Elementos del Vector";
Escribir "*************************************************";
i=1;
Mientras i<=n Hacer
Adicion<-Adicion+Vector(i);
i<-i+1;
Fin Mientras
Pro_medio<-Adicion/n;
Escribir "El Promedio de los ", i-1, " primeros elementos es =", Pro_medio;
FinSubProceso
//3-MAXIMO
SubProceso MAXIMO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i);
i<-i+1;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector:"
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//MAXIMO
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar el Resultado Maximo de los Elementos del Vector";
Escribir "********************************************************";
i=1;
MAX<-Vector(i);
Para i=1 Hasta n Con Paso 1 Hacer
Si Vector(i)>MAX Entonces
MAX<-Vector(i);
SiNo
MAX<-MAX;
Fin Si
Fin Para
Escribir "El Maximo Numero es:", MAX;
FinSubProceso
//4-MINIMO
SubProceso MINIMO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i);
i<-i+1;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector";
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//MINIMO
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar el Resultado Minimo de los Elementos del Vector";
Escribir "********************************************************";
i=1;
MIN<-Vector(i)
Para i=1 Hasta n Con Paso 1 Hacer
Si Vector(i)<MIN Entonces
MIN<-Vector(i);
SiNo
MIN<-MIN;
Fin Si
Fin Para
Escribir "El Minimo Numero es:", MIN;
FinSubProceso
//5-CONTAR
SubProceso CONTAR()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "**********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i);
i<-i+1;
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector";
Escribir "**********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//CONTAR
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar el Numero de Veces Repetidas del Elemento del Vector";
Escribir "**************************************************************";
Escribir "Ingrese El Numero a Comprobar:";
Leer A;
i=1;
C=0;
Mientras A=Vector(i) Hacer
Si i<=n Entonces
C<-C+1;
i=i+1;
SiNo
Escribir "Fuera de Rango";
Fin Si
FinMientras
Escribir "El Numero ", A," se repite " C, " veces";
FinSubProceso
//6-MEDIANA
SubProceso MEDIAN()
Dimension Vector(10);
Escribir "Ingrese el Numero de Elementos del Vector:";
Escribir "*******************************************";
Leer n;
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i)
i<-i+1
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector"
Escribir "*******************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//MEDIANA
Escribir "Hallar La Mediana de los Elementos del Vector";
Escribir "**************************************************************";
Dimension Factor(10)
Repetir
Mediana<-i;
Factorial<-Factorial*Factor(i);
Mediana<-rc(Factorial)
i<-i+1
Hasta Que i<=n
Escribir "La Mediana es:" Mediana;
FinSubProceso
//7-MAYORES AL PROMEDIO
SubProceso MAYORES_AL_PROMEDIO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Escribir "*******************************************";
Leer n;
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i)
i<-i+1
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector"
Escribir "*******************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//MAYORES AL PROMEDIO
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar La Cantidad de Numeros Mayores al Promedio";
Escribir "**************************************************************";
i=1;
Mientras i<=n Hacer
Adicion<-Adicion+Vector(i);
i<-i+1;
Fin Mientras
Pro_medio<-Adicion/n;
MAYORES=0;
Para i<-1 Hasta n Con Paso 1 Hacer
Si Vector(i)<Pro_medio Entonces
MAYORES<-MAYORES+1;
SiNo
Escribir "Fuera de Rango";
Fin Si
Fin Para
Escribir "Los Numeros Mayores al Promedio son:", MAYORES;
FinSubProceso
//8-MENORES AL PROMEDIO
SubProceso MENORES_AL_PROMEDIO()
Dimension Vector(10)
Escribir "Ingrese el Numero de Elementos del Vector:";
Leer n;
Escribir "********************************************";
i=1;
Mientras i<=n Hacer
Escribir "Ingrese el V[", i, "]=";
Leer Vector(i)
i<-i+1
Fin Mientras
//MIRAR LOS ELEMENTOS DEL VECTOR
i=1;
Escribir "Valores de los Elementos del Vector"
Escribir "********************************************";
Mientras i<=n Hacer
Escribir "El V[", i, "]=", Vector(i);
i<-i+1;
FinMientras
//MENORES AL PROMEDIO
Escribir "Ingrese el Numero de Elementos del Vector a emplear:";
Leer n;
Escribir "********************************************************";
Escribir "Hallar La Cantidad de Numeros Menores al Promedio";
Escribir "**************************************************************";
i=1;
Mientras i<=n Hacer
Adicion<-Adicion+Vector(i);
i<-i+1;
Fin Mientras
Pro_medio<-Adicion/n;
menores=0;
Para i<-1 Hasta n Con Paso 1 Hacer
Si Vector(i)>Pro_medio Entonces
menores<-menores+1;
SiNo
Escribir "Fuera de Rango";
Fin Si
Fin Para
Escribir "Los Numeros Menores al Promedio son:", menores;
FinSubProceso
Proceso EJERCICIOS
//DECLARACION PUBLICA
Definir opciones, Mediana, MAYORES, menores, Adicion, Pro_medio,MAX, MIN, A, i, n, C, Factor, Factorial como Entero
Dimension Vector(10)
//ELEGIR OPCION FORMULA
Escribir "***********MENU***********"
Escribir "1)SUMAR"
Escribir "2)PROMEDIO"
Escribir "3)MAX"
Escribir "4)MIN"
Escribir "5)CONTAR"
Escribir "6)MEDIANA"
Escribir "7)MAYORES AL PROMEDIO"
Escribir "8)MENORES AL PROMEDIO"
Escribir "********************************************";
Escribir "ELEGIR UNA FORMULA"
Leer opciones
Segun opciones Hacer
1:
SUMA()//1-INVOCAR
2:
PROMEDIO()//2-INVOCAR
3:
MAXIMO()//3-INVOCAR
4:
MINIMO()//4-INVOCAR
5:
CONTAR()//5-INVOCAR
6:
MEDIAN()//6-INVOCAR
7:
MAYORES_AL_PROMEDIO()//7-INVOCAR
8:
MENORES_AL_PROMEDIO()//8-INVOCAR
De Otro Modo:
Escribir "NO HA SELECCIONADO UNA OPCION"
Fin Segun
FinProceso