Membuat Data Acak Di Pascal

Dibawah ini gan scripnya silahkan dicoba aja ya.hehe

Program contoh;

Uses wincrt;

var

   nil1 : Array [1..100] of integer;

   n,i,j,dum : integer;

Begin

     clrscr;

     write ('Mau berapa isi data acak(integer) ='); readln(n);

     for i := 1 to n do

     begin

          write ('Data Ke ',i, ' : '); readln (nil1[i]);

     end;

     {*penyapuan proses*}

     for i := 1 to n-1 do

     begin

     for j := i to n do

         begin

              if nil1[j] < nil1[i] then

                 begin

                      dum := nil1[j]  ;

                      nil1[j] := nil1[i];

                      nil1[i] := dum;

                 end;

              end;

         end;

         writeln;

         writeln ('Hasil Sortir');

         for i := 1 to n do

             write (nil1[i] : 3);

         readln;

     end.

Dibawah ini Outputnya ok. hehe.

Selamat mencoba semoga bermanfaat.