sub proceso Menor_()

Dimension vector(10)

Definir Inicial,Final,i Como Entero

Inicial = 1

Escribir "Numero de elementos"

Leer Final

Si Final <= 10 Entonces

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Ingrese V[ ",i," ]= "

Leer vector(i)

Fin Para

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Posicion [ ",i," ]= ",vector(i)

Fin Para

i = 1

Suma = 0

Mientras i<=Final Hacer

Suma = Suma + Vector(i)

i = i + 1

FinMientras

Prom = Suma/Final

Escribir " "

Escribir "Promedio: ", Prom

i = 1

Min<-0

Para i = 1 Hasta Final Con Paso 1 Hacer

Si Vector(i) < Prom Entonces

Min = Vector(i)

Escribir " "

Escribir "Menor al Promedio:", Min

SiNo

Escribir " "

Fin Si

Fin Para

SiNo

Escribir " "

Escribir "Numero de elementos Maximos: 10" FinSi

Fin SubProceso

SubProceso Mayor_()

Dimension vector(10)

Definir Inicial,Final,i Como Entero

Inicial = 1

Escribir "Numero de elementos"

Leer Final

Si Final <= 10 Entonces

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Ingrese V[ ",i," ]= "

Leer vector(i)

Fin Para

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Posicion [ ",i," ]= ",vector(i)

Fin Para

i = 1

Suma = 0

Mientras i<=Final Hacer

Suma = Suma + Vector(i)

i = i + 1

FinMientras

Prom = Suma/Final

Escribir " "

Escribir "Promedio: ", Prom

i = 1

Max<-0;

Para i = 1 Hasta Final Con Paso 1 Hacer

Si Vector(i) > Prom Entonces

Max = Vector(i)

Escribir " "

Escribir "Mayor al Promedio:", Max

SiNo

Escribir " "

Fin Si

FinPara

SiNo

Escribir " "

Escribir "Numero de elementos Maximos: 10"

FinSi

Fin SubProceso

SubProceso Mediana()

Dimension vector(10)

Definir Inicial,Final,i Como Entero

Inicial = 1

Escribir "Numero de elementos"

Leer Final

Si Final <= 10 Entonces

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Ingrese V[ ",i," ]= "

Leer vector(i)

Fin Para

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Posicion [ ",i," ]= ",vector(i)

Fin Para

Fact = 1

Para i<-inicial Hasta Final Con Paso 1 Hacer Fact = Fact * i

Media = rc(Fact)

Fin Para

Escribir "Mediana:" Media

SiNo

Escribir " "

Escribir "Numero de elementos Maximos: 10" FinSi

Fin SubProceso

SubProceso Contar()

Dimension vector(10)

Definir Inicial,Final,i Como Entero

Inicial = 1

Escribir "Numero de elementos"

Leer Final

Si Final <= 10 Entonces

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Ingrese V[ ",i," ]= "

Leer vector(i)

Fin Para

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Posicion [ ",i," ]= ",vector(i)

Fin Para

Escribir "Numero de Veces Repetidas"

Escribir "Comprobar:"

Leer a

i = 1

q = 0

Mientras a = Vector(i) Hacer

Si i <= Final Entonces

q = q + 1

i = i + 1

SiNo

Escribir "Fuera de Rango"

Fin Si

FinMientras

Escribir "El Numero ", a ," se repite " , q , " veces"

SiNo

Escribir " "

Escribir "Numero de elementos Maximos: 10" FinSi

Fin SubProceso

SubProceso Minimo()

Dimension vector(10)

Definir Inicial,Final,i Como Entero

Inicial = 1

Escribir "Numero de elementos"

Leer Final

Si Final <= 10 Entonces

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Ingrese V[ ",i," ]= "

Leer vector(i)

Fin Para

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Posicion [ ",i," ]= ",vector(i)

Fin Para

i = 1

Min<-Vector(i);

Para i = 1 Hasta Final Con Paso 1 Hacer

Si Vector(i) < Min Entonces

Min = Vector(i);

SiNo

Min = Min

Fin Si 

Fin Para

Escribir " "

Escribir "Menor Numero:", Min

SiNo

Escribir " "

Escribir "Numero de elementos Maximos: 10" FinSi

Fin SubProceso

SubProceso Maximo()

Dimension vector(10)

Definir Inicial,Final,i Como Entero

Inicial = 1 

Escribir "Numero de elementos"

Leer Final

Si Final <= 10 Entonces

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Ingrese V[ ",i," ]= "

Leer vector(i)

Fin Para

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Posicion [ ",i," ]= ",vector(i)

Fin Para

i = 1

Max<-Vector(i);

 Para i = 1 Hasta Final Con Paso 1 Hacer

Si Vector(i) > Max Entonces

Max = Vector(i)

; SiNo

Max = Max;

Fin Si

Fin Para

Escribir " "

Escribir "Mayor Numero:", Max

SiNo

Escribir " "

Escribir "Numero de elementos Maximos: 10" FinSi

Fin SubProceso

SubProceso Promedio()

Dimension vector(10)

Definir Inicial,Final,i Como Entero

Inicial = 1

Escribir "Numero de elementos"

Leer Final Si Final <= 10 Entonces

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Ingrese V[ ",i," ]= "

Leer vector(i)

Fin Para

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Posicion [ ",i," ]= ",vector(i)

Fin Para

i = 1

Suma = 0

Mientras i<=Final Hacer

Suma = Suma + Vector(i)

i = i + 1

FinMientras

Prom = Suma/Final

Escribir " "

Escribir "Promedio: ", Prom

SiNo

Escribir " "

Escribir "Numero de elementos Maximos: 10" FinSi

Fin SubProceso

SubProceso 

Sumar()

Dimension vector(10)

Definir Inicial,Final,i Como Entero

Inicial = 1

Escribir "Numero de elementos"

Leer Final

Si Final <= 10 Entonces

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Ingrese V[ ",i," ]= "

Leer vector(i)

Fin Para

Para i <- Inicial Hasta Final Con Paso 1 Hacer Escribir "Posicion [ ",i," ]= ",vector(i)

Fin Para

i = 1

Mientras i <= Final Hacer

Suma = Suma + Vector(i)

i = i + 1

FinMientras

Escribir " "

Escribir "Resultado de la adicion: ", Suma

SiNo

Escribir " "

Escribir "Numero de elementos Maximos: 10" FinSi

Fin SubProceso

Proceso Tarea

Escribir " "

Escribir "Seleccione una Operacion"

Escribir "1.-Sumar" Escribir "

escribir "2.-Promedio"

Escribir "3.-Maximo"

Escribir "4.-Minimo"

Escribir "5.-Contar" Escribir "

escribir "6.-Mediana"

Escribir "7.-Mayores al promedio"

Escribir "8.-Menores al promedio"

Leer Variable

Segun Variable Hacer

1: Sumar()

2: Promedio()

3: Maximo()

4: Minimo()

5: Contar()

6: Mediana()

7: Mayor_()

8: Menor_()

De Otro Modo:

Escribir "No Existe"

Fin Segun

FinProceso