program vitri;

uses crt;

var A:array[1..100] of integer;

      n,i,k:integer;

begin

clrscr;

write('Nhap so luong phan tu N: ');   readln(n);

randomize;

for i:=1 to n do

 A[i]:=random(2000)-1000;

write('Day so la: ');

for i:=1 to n do

 write(A[i],' ');

writeln;

write('Nhap k: ');   readln(k);

for i:=1 to n do

 if A[i]=k then

  begin

   write('Vi tri dau tien cua ',k,' la: ',i);

   readln;

   exit;

  end;

writeln('Khong co ',k,' trong day');

readln

end.

uses crt;
var n,i:byte;
a:array[1..100] of integer;
    k:integer;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        randomize;
        for i:=1 to n do
        a[i]:=random(2001)-1000;
        write('DAY SO DO:');
        for i:=1 to n do write(a[i],' ');
        writeln;
        write('Nhap k:'); readln(k);
        write('VI TRI DAU TIEN XUAT HIEN K LA:');
        for i:=1 to n do
                if a[i]=k then
                begin
                        write(i);
                        break;
                end;
        readln
END.

Chúc bạn học tốt.

Cho mình câu trl hay nhất nha.