program az;
uses Crt;
var i,n,a,dem : longint;
S,TBC : real;
begin
clrscr;
S := 0;
dem := 0;
Write('Nhap n = '); readln(n);
For i:=1 to n do
begin
Write('Nhap phan tu thu ' , i , ' la : '); readln(a);
If (a mod 2 <> 0) then
begin
dem := dem + 1;
S := S+a;
end;
end;
TBC := S/dem;
Write('TBC cac so le la : ',TBC);
readln
end.