Viết chương trình nhập dãy số gồm n số nguyên (n<= 100) ( sử dụng chương trình con nhập dãy số). In ra màn hình các số dương trong dãy.

program dem_duong;

uses crt;

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

     n,i,d:integer;

procedure nhap;

begin

       clrscr;

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

       for i:=1 to n do

              begin

                     write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

              end;

end;

BEGIN

       nhap;

       d:=0;

       for i:=1 to n do

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

       write(d);

       readln;

end.