Uses crt;
Var i, n, dd, s: integer;
a:array[1..1000000] of longint;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
Begin
Write('a[',i,']=');
Readln(a[i]);
End;
dd:=0;
s:=0;
For i:=1 to n do if a[i] > 0 then inc(s, a[i]);
For i:=1 to n do if a[i] > 0 then inc(dd);
Writeln('Tong cac so duong la: ',s);
Writeln('Co ',dd,' so duong');
Readln
End.