Clase del día martes
1-
Sub proceso Sumar
Suma = 0
Para < i=1 > hasta < i<=n > ; tri=1
Suma = Suma + Vector <i>
Fin para
Para = suma/n
Escribir "el minimo es", min
Fin sub proc
2
Sub proceso Min
Min = Vector [i]
Para < i=1 > hasta < i<=n >
Si vector [i] < min hacer tri=1
Min = Vector [i]
Caso contrario
Min=Min
Fin si
Escribir "el minimo es", min
Fin para
Fin sub proc
3
Sub proceso contar
Leer P
Leer n ; Leer (p)
i=1
Repetir
Si ( p= vector <i>)
c= c+1
Fin si
i= i+1
Hasta
( i<=n )
Escribir " Se repite ", c
Fin subproceso
Clase día jueves
Subproceso Sumar ()
//Declaración de vectores
Definir Inicial, Final, como Real
//Asignando valores
Inicial = 1
Final = 10
//Leyendo el vector
Para m=inicial hasta final con paso 1 Hacer
Escribir "Ingrese v [",m,"] = " , leer vector (m);
Fin para
i=1
Suma=0
Mientras i<= final Hacer ;
Suma = suma + vector (i)
i = i+1
Fin mientras
Escribir "La suma es:" ; suma
Fin subproceso
Subproceso min ()
//Declaración de vectores
Definir Inicial, Final, como entero
Dimensión vector ()
//Asignando valores
Inicial = 1
Final = 10
i=1
min 1 = vector (i)
Repetir
Si vector (i) < min , entonces
min 1 = vector (i)
Sino
min 1 = min 1
Fin si
i= i+1
Hasta que i>= final
Escribir " El mínimo de los elementos sera: ", min 1
Fin sub proceso
Sub proceso contar ()
Definir Inicio, final como entero
Dimensión vector (10)
Inicio=1
Final=10
i=1
Para i=inicio hasta final con paso 1 hacer
Si prom > vector (i) Hacer
M=M+1
Caso contrario
m=m`1
Fin si
Fin para
Escribir (M,m); M,m
Fin sub proceso