program phuongt;

uses crt;

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

        i, n: intger;

begin

         clrscr;

         write('Nhap n = '); readln(n);

         for i:=1 to n do 

         begin

                    write('A[', i, '] = '); readln(A[i]);

         end;

         write('So le dau tien trong mang la: ');

         for i:=1 to n do

         if A[i] mod 2 = 1 then 

         begin

                   write(A[i]);

                   break;

         end;

         readln

end.

Bài mình chạy rất nhanh nha.

program soledautien;

uses crt;

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

      n,i:byte;

      ptu:integer;

begin

     clrscr;

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

     ptu:=0;

     for i:=1 to n do

          begin

               write('Phan tu thu ',i,': ');  readln(A[i]);

               if (ptu=0) and (A[i] mod 2=0) then ptu:=A[i];

          end;

     write('Phan tu le dau tien la: ',ptu);

     readln;

end.