Program Array 2
uses wincrt;
var
L : array[1..100] of integer;
index,i,n,X : byte;
ketemu : boolean;
begin
write(’Masukkan jumlah data : ‘);
readln(n);
randomize;
writeln(’Data ke yang dimasukkan adalah ‘);
for i:=1 to N do
begin
L[i]:=random(100)+1;
write(L[i]:4);
end;
writeln;
write(’Mau cari Nilai berapa ? ‘);readln(X);
writeln;
ketemu := false;
for i:=1 to N do
begin
if l[i] = x then
begin
ketemu := true;
index := i;
end;
end;
if ketemu then
writeln(’Nilai ‘,X,’ ditemukan pada index ke - ‘,index)
else
writeln(’Nilai ‘,X,’ TIDAK ditemukan’);
readkey;
donewincrt;
end.
