Berikut adalah sourcenya :

———————————-

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.

———————————-

Sumber : http://www.nusinau.com/contoh-array/

No related posts.