SubProceso suma()

//declaracion

Dimension vector(10)

Definir inicial ,final, i Como Entero

//asiganr

inicial=1

final=10

//lectura del vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrese v[",i,"]="; leer vector(i);

Fin Para

//ver valores del vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrese v[",i,"]="; vector(i);

Fin Para

//calcular suma

Mientras i<=final Hacer

i=i+1

Fin Mientras

suma <- prom * final

Escribir "la suma es:", suma;

Fin SubProceso

 

 

SubProceso maximo()

//declaracion

Dimension vector(10)

Definir inicial ,final, i Como Entero

//asiganr

inicial=1

final=20

//lectura del vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrese v[",i,"]="; leer vector(i);

Fin Para

//ver valores del vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrese v[",i,"]="; vector(i);

Fin Para

//**************maximo*************

i=1

max1 <-vector(1)

Repetir

si vector(1)>MAX1 ENTONCES

MAX1<- VECTOR(1)

SINO

MAX1 <- MAX1;

FinSi

i<- i+1;

Hasta Que i>= final

Escribir "elmaximo de los elementos es:",MAX1;

Fin SubProceso

 

 

 

SubProceso promedio ()

//declaracion

dimension vector(10)

definir inicial,final,i como entero

//asignar

inicial=1

final=10

//lectura de vector

Para i<-inicial Hasta final Con Paso 1 Hacer

Escribir "ingrse v[",i,"]=";leer vector(i)

Fin Para

//calcular elpromedio

i=1

suma=0

Mientras i<=final Hacer

suma<- suma+vector(i)

i<-i+1

Fin Mientras

prom <-suma/final

Escribir "el promedio es :"; prom:

Fin SubProceso

 

 

 proceso parametros

//declaracion

definir suma,inicial,final,i,MAX1,MIN1 como entero

definir prom como real

dimension vector(10)

inicial=1

final=10

//asignar

 

Escribir "--------menu-------"

Escribir "1)sumar"

Escribir "2)promedio"

Escribir "3)maximo"

Escribir "4)minimo"

Escribir "5)contar"

Escribir "6)mediana"

Escribir "7)mayores al promedio "

Escribir "8)menores al promedio"

Escribir "poner opcion"

 

leer opcion

Segun opcion Hacer

 

 

1:

sumar()

2:

promedio()

3:

maximo()

4:

minimo()

5:

contAR()

6:

MEDIANA()

7:

MAYORES AL PROMEDIO()

8:

MENORES AL PROMEDIO()

De Otro Modo:

Escribir "NO ES UNA OPCION"

Fin Segun

FinProceso

 

​