program trungbinh;

uses crt;

var A:array[1..200] of integer;

       n,i,t,td,ta,dd,da:integer;

begin

       write('Nhap so luong phan tu n: ');    readln(n);

       dd:=0;   da:=0;   t:=0;   td:=0;   ta:=0;

       for i:=1 to n do

              begin

                     write('A[',i,']= ');       readln(A[i]);

                     t:=t+A[i];

                     if A[i]>0 then

                            begin

                                   dd:=dd+1;

                                   td:=td+A[i];

                            end;

                     if A[i]<0 then

                            begin

                                   da:=da+1;

                                   ta:=ta+A[i];

                            end;

              end;

       writeln('Trung binh cong cua day la: ',t/n:2:2);

       if dd=0 then writeln('Trong day khong co so duong de tinh trung binh')

              else writeln('Trung binh cac so duong cua day la: ',td/dd:2:2);

       if da=0 then writeln('Trong day khong co so am de tinh trung binh')

              else writeln('Trung binh cac so am cua day la: ',ta/da:2:2);

       readln

end.

Hok bít í bạn pk vậy hok

$#Zyy_mood$

`text[Nhóm: Try Your Best]`

uses crt;

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

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

begin

clrscr;

s := 0; s2 := 0; s3 := 0;

d2 := 0; d3 := 0;

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.