uses crt;

var a:array[1..100000] of longint;

      i,n,s,t,d:longint;

begin

clrscr;

readln(n);

for i:=1 to n do read(a[i]);

s:=0;t:=0;d:=0;

for i:=1 to n do

 begin s:=s+a[i];

            if a[i]>0 then begin d:=d+1;

                                             t:=t+a[i];

                                   end;

 end;

writeln('a, ',s);

write('b, ',d,' ',t);

readln

end.

program bai_giai;

uses crt;

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

      n,i,t,d,td:integer;

begin

     clrscr;

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

     t:=0;  d:=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

                          d:=d+1;

                          td:=td+A[i];

                     end;

           end;

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

     writeln('b. Co ',d,' so duong va tong cua chung la: ',td);

     readln;

end.