Ayuda

[Anonymous]

Por favor llevo rato y no puedo :C
Ingresar en un vector los nombres de (N >2 y N<=10) ciudades y en otro vector paralelo la cantidad de habitantes de la misma. Ordenar alfabéticamente las ciudades y mostrar los resultados. Por último ordenar con respecto a la cantidad de habitantes (de mayor a menor) y mostrar nuevamente.

[Anonymous]

Cargar en un vector los nombres de 5 paises y en otro vector paralelo la cantidad de habitantes del mismo. Ordenar alfabéticamente e imprimir los resultados. Por último ordenar con respecto a la cantidad de habitantes (de mayor a menor) e imprimir nuevamente

[Alan Alonso]

Proceso Paises

Definir Nombre, nombre como cadena

Definir Cantidad, cantidad, i, j como entero

i<-0;

j<-0;

Dimension Nombre[6];

Dimension Cantidad[6];

Para i <- 1 hasta 5 hacer

EscribirSinSaltar "Ingrese nombre del país: ";

Leer Nombre[i];

EscribirSinSaltar "Ingrese la poblacion total del pais ",Nombre[i],": ";

Leer Cantidad[i];

Finpara

Para i <- 2 hasta 5 hacer

Para j <- 1 hasta 5-i+1 hacer

  Si Nombre[j] > Nombre[j+1] entonces

     nombre <- Nombre[j];

     Nombre[j] <- Nombre[j+1];

     Nombre[j+1] <- nombre;

     cantidad <- Cantidad[j];

     Cantidad[j] <- Cantidad[j+1];

     Cantidad[j+1] <- cantidad;

 Finsi

Finpara

Finpara

Escribir "Paises ordenados alfabéticamente";

Para i <- 1 hasta 5 hacer

Escribir Nombre[i]," -> Población: ",Cantidad[i];

Finpara

Para i <- 2 hasta 5 hacer

Para j <- 1 hasta 5-i+1 hacer

  Si Cantidad[j] < Cantidad[j+1] entonces

     cantidad <- Cantidad[j];

     Cantidad[j] <- Cantidad[j+1];

     Cantidad[j+1] <- cantidad;

     nombre <- Nombre[j];

     Nombre[j] <- Nombre[j+1];

     Nombre[j+1] <- nombre;

  Finsi

Finpara

Finpara

Escribir "Paises ordenados de mayor a menor segun el tamaño de la población";

Para i <- 1 hasta 5 hacer

Escribir Nombre[i]," -> Población: ",Cantidad[i];

Finpara

Finproceso