SORTING PART II (Selection Sort dari Kecil ke Besar)

-Hasil Keluaran-

masukan jumlah index array yang akan digunakan : 5

masukan elemen array : 5

masukan elemen array : 3

masukan elemen array : 8

masukan elemen array : 1

masukan elemen array : 9

setelah diurutkan 

----------------------------------

elemen array index ke-1 : 1

elemen array index ke-2 : 3

elemen array index ke-3 : 5

elemen array index ke-4 : 8

elemen array index ke-5 : 9

-Sintax Pascal- 

program SelectionSortMaxNaik;
uses wincart;
  const nMaks = 100;

var
l : array [1..nMaks] of integer;
i, k, n, j, temp, imaks : integer;

begin
   write ('masukan jumlah index array yang akan digunakan : '); readln (n);
   for k := 1 to n do
   begin
      write ('masukan elemen array :'); readln (l[k]);
   end;

   for i := n downto 2 do
       begin
       imaks := 1;
       for j := 2 to i do
       begin
           if l[j] > l [imaks] then
           begin
                imaks := j;
           end;
         end;
         temp := l[i];
         l[i] := l[imask];
         l[imaks] := temp;

    end;
    writeln;
    writeln ('setelah diurutkan');
    writeln ('----------------------------------');
    for i := 1 to n do
        begin
             writeln ('elemen arrai index ke-',i,':', l[i] );
    end;

end.