Aqui esta una fusion de lo hecho el dia marte y jueves:7
SubProceso Minimo()
Dimension Vector(10);
Escribir "Ingrese el numero de elementos del vector:"
Leer n;
i=1
Mientras i<=n Hacer
Escribir "Ingrese el V[",i,"]= ";
Leer Vector(i);
i<-i+1;
Fin Mientras
//mirar los elementos el vector
i=1;
Escribir "Valores de los elementos del vector"
Mientras i<=n Hacer
Escribir "El V[",i,"]= " Vector(i);
i<-i+1;
FinMientras
min1<-Vector(i)
Repetir
Si Vector(i)< min1 Entonces
...
