Cho số nguyên dương N và dãy a1 a2…aN 1 hãy tính tổng các số dương 2 đếm số lượng các số dương

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.