Pada source array berikut ini, dibuat suatu program 

untuk menyimpan array sebanyak 100 (max), pada awalnya

program akan meminta jumlah data yang akan bdi masukkan.

Dalam memberikan nilai pada array, akan dilakukan pengacak-an 

serta pengecekan nilai yang dihasilkan. Nilai yang dihasilkan 

kemudian ditampilkan. 

{

uses wincrt;
 
var X : array[1..100] of integer;
a,b,n,r : integer;
beda : boolean;
begin
  write('Banyaknya data : ');readln(n);
  if n > 100 then begin
    writeln('Melebihi batas, (tidak boleh lebih dari 100)');
    exit;
  end;
  for a:=1 to n do begin
    repeat
      r:=random(100)+1;
      b:=1;beda:=true;
      repeat
        if r=x[b] then beda:=false else inc(b);
      until (b>a-1) or (beda=false);
    until (beda);
    x[a]:=r;
  end;
  writeln;
  for a:=1 to n do write(X[a],' ');
end.

}