program trungbinh;

uses crt;

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

      n,i,d:integer;

      t:longint;

begin

     clrscr;

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

     t:=0;  d:=0;

     for i:=1 to n do

          begin

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

               if A[i] mod 2=0 then

                    begin

                         t:=t+A[i];

                         d:=d+1;

                    end;

          end;

     if d=0 then write('Khong co so chan de tinh trung binh')

     else write('Trung binh cong cac so chan la: ',t/d:2:2);

     readln;

end.

uses crt;

var n,i,d:longint;

a:array[0..1000000] of integer;

    tbc:real;

BEGIN

        clrscr;

        write('Nhap N:'); readln(n);

        tbc:=0;     d:=0;

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

                if a[i] mod 2 =0 then

                begin

                        tbc:=tbc+a[i];

                        inc(d);

                end;

        end;

        write('Trung binh cong cac phan tu chan:',tbc/d:0:3);

        readln

END.

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