Membuat Program Pengurutan Angka Menggunakan Array Dengan Bahasa Pascal

Tanpa banyak omong langsung aja deh:



{Program Pengurutan Angka}

uses wincrt;
type
data=array[1..100] of integer;
var a:data;
    b,i,j,k,l,temp:integer;
begin

write('Jumlah angka yang akan di urutkan: ');readln(b);
for i:=1 to b do
begin
write('Masukkan angka ke-',i,': ');readln(a[i]);
end;
for i:=1 To b-1 do
 for j:=i+1 to b do
  if a[i]>a[j] then
   begin
   temp:=a[i];
   a[i]:=a[j];
   a[j]:=temp;
   end;
   writeln;
   writeln('Data yang sudah diurutkan:');
   for i:=1 to b do
   write(a[i],' ');
end.

Semoga bermanfaat!!