var n,i: integer;
a:array[1..10000] of real;
x,y,sa,sd,tb: real;
begin
write('nhap n = '); readln(n);
for i:=1 to n do
begin write('a[',i,'] = '); readln(a[i]); end;
sa:=0;sd:=0;tb:=0; x:=0; y:=0;
for i:=1 to n do begin
if a[i] > 0 then begin sd:=sd+a[i]; x:=x+1; end;
if a[i] < 0 then begin sa:=sa+a[i]; y:=y+1; end;
end;
for i:=1 to n do
tb:=tb+a[i];
tb:=tb/n;
writeln('Co ',x:3:0,' so duong va tong la: ',sd:5:2);
writeln('Co ',y:3:0,' so am va tong la: ',sa:5:2);
write('TBC cua day: ',tb:5:2);
end.

uses crt;
var  a : array[1..100] of integer;
n,i ,j,k,d1,d2,tb : integer;
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] > 0 then d1:=d1+1 else d2:=d2+1;
for i:=1 to n do if a[i]>0 then j:=j+a[i] else k:=k+a[i];
writeln('So luong so duong la :',d2);
writeln('Tong cac so duong la :',j);
writeln('So luong so am la :',d1);
writeln('Tong cac so am la :',k);
writeln('Trung binh cua cua day la :',(k+j)/2:0:2);
readln
end.