uses crt;
var n,i,res,result,count,cou:longint; a:array[1..100]of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do
        begin
            readln(a[i]);
            if (a[i]<0) then begin inc(res,a[i]); inc(count) end;
            if (a[i]>0) then begin inc(result,a[i]); inc(cou) end;
        end;
    if (count>0) then
       writeln(res/count:0:2) else
                                 writeln('Khong co so nguyen am!');
    if (cou>0) then
       writeln(result/cou:0:2) else
                                 writeln('Khong co so nguyen duong!');
readln;
end.

uses crt;
var i,n,ta,da,td,dd:longint; a:array[1..10]of longint;
begin
clrscr;
   write('Nhap n: (0<=n<=10) ');readln(n);
   for i:=1 to n do 
      begin 
         write('a[',i,']=');readln(a[i]);
         if a[i]<0 then begin ta:=ta+a[i]; inc(da); end; 
         if a[i]>0 then begin td:=td+a[i]; inc(dd); end; 
      end;
   if da>0 then
      writeln('Trung binh cong cac so am: ',ta/da:0:2)
   else  
      writeln('Khong co so am');
   if dd>0 then
      writeln('Trung binh cong cac so duon: ',td/dd:0:2)
   else  
      writeln('Khong co so duong');
readln
end.