Program ss;

Var a:array[1..100] of integer;

n,i,d1,d2:integer;

tbcc,tbcl:real;

Begin

Write('Nhap so phan tu'); readln(n);

for i:=1 to n do

begin

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

End;

tbcc:=0; tbcl:=0;

For i:=1 to n do

begin

if a[i] mod 2=0 then tbcc:=tbcc+a[i]; inc(d1);

if a[i] mod 2<>0 then tbcl:=tbcl+a[i]; inc(d2);

end;

tbcc:=tbcc/d1;

tbcl:=tbcl/d2;

Writeln('TBC cac so chan la: ',tbcc:4:2);

writeln('tbc cac so le la: ',tbcl:4:2);

readln;

end.

program TBC_chan;

uses crt;

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

      n,i,TBc,dc,Tbl,dl: integer;

Begin

         clrscr;

         write('Nhap n: '); readln(n);

         for i:=1 to n do

         begin

                  write('Nhap gia tri thu ',i,': '); readln(A[i]);

                  if A[i] mod 2=0 then

                  begin

                           TBc:=TBc+A[i];

                           dc:=dc+1;

                  end;

                  if A[i] mod 2<>0 then

                  begin

                           TBl:=TBl+A[i];

                           dl:=dl+1;

                  end;

         end;

         writeln('Trung binh cong cac so chan: ',TBc/dc:2:2);

         write('Trung binh cong cac so le: ',TBl/dl:2:2);

         readln

End.