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

0 bình luận về “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”

1. 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.

   Bình luận