program hocmang;

uses crt;

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

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

begin

clrscr;

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

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

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

for i:=1 to n do

 begin

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

  readln(A[i];

  t:=t+A[i];

  if A[i]<0 then 

   begin

     da:=da+1;

     ta:=ta+A[i];

   end;

  if A[i]>0 then

   begin

    dd:=dd+1;

    td:=td+A[i];

   end;

 end;

writeln('Day vua nhap la:');

for i:=1 to n do

 write(A[i]:4);

writeln('Tong cac phan tu cua day la: ',t);

writeln('Co ',dd,' phan tu duong trong day va tong cua chung la: ',td);

writeln('Co ',da,' phan tu duong trong day va tong cua chung la: ',ta);

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

readln

end.

uses crt;

var a:array[1..10000] of word;

      n,i,s,f,t,a,d:word;

begin

clrscr;

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

for i:=1 to n do

begin

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

readln(a[i]);

end;

for i:=1 to n do

begin

t:=t+a[i];

if a[i]>0 then

begin

s:=s+1;

f:=f+a[i];

end;

end;

writeln('tong cac ptu cua day la: ',t);

writeln('so luong so duong la: ',s,' va tong cac so duong la: ',f);

for i:=1 to n do

if a[i]<0 then 

begin

d:=d+1;

a:=a+a[i];

end;

writeln('so luong so am la: ',d,' va tong cac so am la: ',a);

write('TBC cua day la:',t/n:4:2);

readln

end.