program mang;

uses crt;

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

      n,i,T: integer;

Begin

         clrscr;

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

         for i:=1 to n do

         begin

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

         end;

         write('Cac so le: ');

         for i:=1 to n do

         begin

                  if A[i] mod 2<>0 then

                  begin

                           write(A[i],'  ');

                           T:=T+A[i];

                  end;

         end;

         writeln;

         write('Trung binh cong cac so le = ',T/n:2:2);

         readln

End.

program chuongtrinh;
var a:array[1..100] of integer;
   i,n,s:integer;
   tb:real;
   begin
   writeln('nhap so phan tu n');readln(n);
   for i:=1 to n do
   readln(a[i]);
   for i:=1 to n do
   if a[i] mod 2<>0 then
   s:=s+a[i];
   tb:= s/n;
   writeln('tong la',s:4);
   writeln('trung binh cong la',tb:4);
   readln;
   end.