Viết chương trình đến các số chẵn trong dãy số nguyên A có N phần tử (N<=10^3

program phuongt;

uses crt;

  var A: array[1..1000] of longint;

        n, i, d: integer;

begin

            clrscr;

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

            d:=0;

            for i:=1 to n do

            begin

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

                         if A[i] mod 2 = 0 then d:=d+1;

            end;

            write('Co tat ca ', d, ' cac so chan trong day so nguyen A');

            readln

end.

program ct;

uses crt;

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

      i,n,k,dl,dc,da,dd:integer;

      S,T:longint;

begin clrscr;

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

   for i:=1 to n do

     begin

        write('Nhap A[',i,']: '); readln(A[i]);

     end;

     S:=0; T:=1;

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

   for i:=1 to n do

     begin

        if A[i] mod k=0 then 

          begin

             S:=S+A[i];

             T:=T*A[i];

          end;

        if A[i] mod 2=0 then inc(dc)

                                  else inc(dl);

        if A[i]>0 then inc(dd)

                       else inc(da);

     end;

   writeln('Tong chia het cho k la: ',S);

   writeln('Tich chia het cho k la: ',T);

   writeln('Co ',dl,' so le. Co ',dc,' so chan);

   writeln('Co ',da,' so am. Co ',dd,' so duong);

readln;

end.

5* nhé