uses crt;

var a : array[1..250] of integer;

i, n, s, s2, s3, d2, d3 : integer;

begin

clrscr;

write('nhap so luong phan tu trong day : ');readln(n);

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if a[i] > 0 then

begin d2 := d2 + 1; s2 := s2 + a[i]; end;

if a[i] < 0 then

begin d3 := d3 + 1; s3 := s3 + a[i]; end;

s := s + a[i];

end;

writeln('trung binh cong cac phan tu : ', (s/n):2:1);

writeln('trung binh cong phan tu duong : ', (s2/d2):2:1);

writeln('trung binh cong cac phan tu am : ', (s3/d3):2:1);

readln

end.

program day;
uses crt;
var a:array[1..500] of integer;
    n,i,d1,d2:integer;
    TB,TBd,TBa:real;
Begin
        clrscr;
        write('n = ');readln(n);
        for i:=1 to n do
        begin
                write('A[',i,'] = ');readln(a[i]);
                Tb:=Tb+a[i];
                if a[i]>0 then
                begin
                        TBd:=TBd+A[i];
                        d1:=d1+1;
                end;
                if a[i]<0 then
                begin
                        TBa:=TBa+A[i];
                        d2:=d2+1;
                end;
        end;
        TB:=TB/n;

        TBd:=TBd/d1;
        TBa:=TBa/d2;
        writeln('Trung binh ca day: ',TB:2:2);
        writeln('Trung binh duong: ',TBd:2:2);
        write('Trung binh am: ',Tba:2:2);
        readln
End.