Program day;

uses crt;

var a:array[1.500]of interger;

n,i,d1,d2:interger;

TB,TB dương,TB âm:real;

Begin

clrscr;

write('n=');readln(a[i]);

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;

else

TB:=$\frac{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.

uses crt;

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

i,n,s,d,dem,t:integer;

tbc,tb:real;

begin

clrscr;

write('Nhap n: ');readln(n);

s:=0;

d:=0;

for i:=1 to n do

begin

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

readln(A[i]);

if A[i]>0 then

begin

s:=s+A[i];

d:=d+1;

end

else

begin

t:=t+A[i];

dem:=dem+1;

end;

end;

tbc:=s/d;

tb:=t/dem;

writeln('Trung binh cong cac so duong: ',tbc:0:2);

write('Trung binh cong cac so am: ',tb:0:2);

readln

end.