ALGORITMO (MARTES)
CONTAR
sub proceso
leer (n)
leer (A)
i = 1; c = 0
repite
si (A==vector [ i ] )
c= c+1
fin_si
i = i+1;
hasta (i<=n)
escribir ," se repite", c, "vector";
FIN sub_proceso
​
MEDIANA
sub proceso mediana
mediana <- vector [1] hacer i=1
para < i = 1 ] hasta < r < n >
fact= fact *vector [ i ]
media=RC( fact )
escribir ," , c, "mediana es"; mediana;
fin_para
FIN sub_proceso
​
SUMAR
sub proceso sumar
sumar=0;
para <i=1> hasta <i<=n > hacer i=1
sumar <- suma + vector [ i ]
escribir "sumar";suma;
fin_para
FIN sub_proceso
​
ALGORITMO ( JUEVES )
SUMA Y PROMEDIO DE LOS VECTORES
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
MINIMO
/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
CONTAR
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