Viết chương trình nhập vào một số nguyên dương N (N<=250) và dãy số gồm N số nguyên từ A1..An. Hãy đếm tổng các số dương trong dãy trên.

program dem_tong;

uses crt;

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

      n,i,d,t:integer;

begin

      clrscr;

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

      d:=0;   t:=0;

      for i:=1 to n do

            begin

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

                  if A[i]>0 then

                        begin

                              d:=d+1;

                              t:=t+A[i];

                        end;

            end;

      writeln('Co ',d,' so duong');

      writeln('Tong cac so duong la: ',t);

      readln;

end.