uses crt;

var n,i,sd,sa,tongduong,tongam:integer;

h:char;

BEGIN

clrscr;

Writeln('Hay Nhap Vao So Luong Phan Tu Cua Day: ');

Readln(n);

Writeln(' Hay Nhap Cac Phan Tu Cua Day: ');

For I:=1 to n do

Begin

Readln(n);

If n>0 then begin sd:=sd+1;TongDuong:=TongDuong+n; end;

If n<0 then begin sa:=sa+1;TongAm:=TongAm+n; end;

end;

If sd=0 then Writeln(' Khong Co So Duong Nao Trong Day So :') else

Writeln(' So Phan Tu Duong Trong Day La:',sd,' Gia Tri Trung Binh La:',TongDuong/sd:8:2);

If sa=0 then Writeln(' Khong Co So Am Nao Trong Day So:') else

Writeln(' So Phan Tu Am Trong Day La:',sa,' Gia Tri Trung Binh La:',TongAm/sa:8:2);

readln;

end.