program bt;
uses crt;
var a: array[1..100] of integer;
i, n, tong, soluong: integer;
TBC: real;
begin
clrscr;
write('Nhap n:'); readln(n);
for i := 1 to n do begin
write('Nhap a[', i ,']='); readln(a[i]);
end;
for i:= 1 to n do if a[i] mod 2 = 0 then write(a[i]);
writeln;
tong:= 0; soluong:= 0; TBC:= 0;
for i:= 1 to n do if a[i] mod 2 <> 0 then begin
write(a[i]);
tong:= tong + a[i];
soluong:= soluong + 1;
end;
TBC:= tong/ soluong;
writeln('Trung binh cong cac so le trong mang la=', TBC :3:2);
readln
end.