uses crt;
var i,n,dl,tl,dc,tc:longint; a:array[1..100]of longint;
begin
clrscr;
write('Nhap n: (n<=100) ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
if (a[i]<0)and(a[i] mod 2=-1) then begin inc(tl,a[i]); inc(dl); end;
if (a[i]>0)and(a[i] mod 2=0) then begin inc(tc,a[i]); inc(dc); end;
end;
write('Mang vua tao: ');
for i:=1 to n do write(a[i],' '); writeln;
if dl>0 then
writeln('Trung binh cac so nguyen am le: ',tl/dl:0:2)
else
writeln('Mang khong chua so am le');
if dc>0 then
writeln('Trung binh cac so nguyen duong chan: ',tc/dc:0:2)
else
writeln('Mang khong chua so duong chan');
readln
end.