viết chương trinh nhập vào 1 dãy n số nguyên. Tinh trung binh các phần tư là số chăn có trong dãy vưa nhập

program trung_binh_chan;

uses crt;

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

      n,i,t,d:integer;

begin

      clrscr;

      write(‘Nhap n: ‘);  readln(n);

      t:=0; d:=0;

      for i:=1 to n do

            begin

                  write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                  if A[i] mod 2=0 then

                        begin

                              d:=d+1;

                              t:=t+A[i];

                        end;

            end;

      write(‘Trung binh cac so chan la: ‘,t/d:0:3);

      readln;

end.