Program VS1;
Var a: array [30..50] of integer;
       i: byte;
       T,TBC: real;
Begin
Write (' Nhap N: '):
Readln (N);
For i := 1 to N do 
begin
writeln (' Nhap so thu ',i);
readln (a[i]);
end;
For i:= 1 to N do write (a[i]);
T:= 0;
For i: = 1 to N do 
begin
T:= T+a[i];
end;
TBC:= T/ N;
Write (' trung binh cong cac phan tu trong day la: ', T:3);
For i:= 1 to N do
Begin
If (a[i] mod 2 <>0 ) then Write (A[i]);
readln;
End.