//3) Llenar un vector de N elementos y ordenarlo en forma ascendente.
//El nuevo resultado se tiene que almacenar en un nuevo vector.
Proceso Ordenar
Definir n,i,j,k, temp,vec1, vec2 Como Entero;
Dimension vec1[200], vec2[200];
Escribir "Ingrese los elementos del vector: ";
Leer n;
Para i<-1 hasta n Con Paso 1 Hacer
Escribir "Ingrese el número: ";
leer vec1[i];
FinPara
Para i<-1 hasta n con paso 1 hacer
Para j<-i+1 hasta n con paso 1 hacer
si vec1[i] > vec1[j] entonces
temp <- vec1[i];
vec1[i] <- vec1[j];
vec1[j] <- temp;
FinSi
FinPara
FinPara
vec2[k] <- vec1[i];
Para k<-1 Hasta n Con Paso 1 Hacer
Escribir "El segundo vector es: ", vec2[k];
FinPara
FinProceso