Pascal 015 ► Ordenar arreglo de menor a mayor

Ejercicio 015: Ordenar un arreglo de enteros de menor a mayor y mostrarlo en pantalla.

Entrada: Un arreglo de enteros desordenado.

Salida: El mismo arreglo ordenado de menor a mayor.


Program Pascal_015;
uses crt;
var
    i, j, aux : integer;
    numeros : array[1..10] of integer;
Begin
    numeros[1] := 7;
    numeros[2] := 2;
    numeros[3] := 6;
    numeros[4] := 1;
    numeros[5] := 10;
    numeros[6] := 8;
    numeros[7] := 4;
    numeros[8] := 5;
    numeros[9] := 9;
    numeros[10] := 3;

    for i := 1 to 10 do
        Write(numeros[i], ', ');
    WriteLn;

    for i := 1 to 10 do begin
        for j := i+1 to 10 do begin
            if (numeros[j] < numeros[i]) then begin
                aux := numeros[i];
                numeros[i] := numeros[j];
                numeros[j] := aux;
            end;
        end;
    end;

    for i := 1 to 10 do
        Write(numeros[i], ', ');
    ReadKey;
End. 


El primer "for" muestra el arreglo desordenado
El segundo "for" ordena el arreglo
El tercer "for" muestra el arreglo ya ordenado

El método de ordenamiento utilizado es el de la "burbuja" ya que se comparan uno por uno los elementos del arreglo con los restantes, si se encuentra uno menor se intercambian para ello se utiliza una variable auxiliar o temporal.

■ En otros lenguajes:

     • Pseudocódigo ✓

     • C#_015 ✓

     • Java_015 ✓

     • Python_015 ✓