Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên.Độ dài của dãy số cũng được nhập từ bàn phím.In ra màn hình

program Mang;

uses crt;

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

      n,i,d: integer;

Begin

         clrscr;

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

         for i:=1 to n do

         begin

                  write(‘A[‘,i,’]=’); readln(A[i]);

         end;

         write(‘Day vua nhap: ‘);

         for i:=1 to n do

         begin

                  write(A[i],’  ‘);

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

         end;

         writeln;

         write(‘Co ‘,d,’ so chan’);

         readln

End.