Program TBC;
Uses crt;
Var n,i,s:integer;
tb:real;
a:aray[1..100] of integer;
Begin
Clrscr;
Write('Nhap so luong phan tu:');
Readln(n);
For i:=1 to n do
Begin
Write('Nhap pt thu a[',i,']:');
Readln(a[i]);
End;
For i:=1 to n do
If a[i] mod 2=0 then
s:=s+a[i];
tb:=s/n;
Writeln('Trung binh cong cac so chan la;',tb:4:2);
Readln;
End.
#VOTECHOMINH5SAONHA