Evap 11

SubProceso 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 "2.-Promedio"
    Escribir "3.-Maximo"
    Escribir "4.-Minimo"
    Escribir "5.-Contar"
    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