Uses crt;
Var A:array[1..10000] of longint;
    s,d,i,n,tbc: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        s:=0; d:=0;
        For i:=1 to n do
                If A[i] mod 2 = 0 then
                Begin
                        s:=s+A[i];
                        inc(d);
                End;
        tbc:=s/d;
        Write('Trung binh cong cac so chan la: ',tbc);
        Readln
End. 

uses crt;
var i,s,n,d:longint; a:array[1..100000]of longint;
begin 
clrscr;
   write('Nhap so phan tu: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if a[i] mod 2=0 then begin inc(d); s:=s+a[i]; end;
      end;
   writeln('Trung binh cong: ',s/d:0:5);
readln
end.