Mô tả thuật toán và viết chương trình nhập vào n số nguyên từ bàn phím đếm xem có bao nhiêu số nguyên dương trong n số đó?

**Mô tả thuật toán:

Bước 1: Nhập n và dãy số nguyên 

Bước 2: i←0; dem←0;

Bước 3: i←i+1;

Bước 4: Nếu A[i]>0 thì dem←dem+1

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: In dem ra màn hình và kết thúc thuật toán

**Viết chương trình:

Program baitap;

Uses crt;

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

      i,dem,n:integer;

Begin

Clrscr;

Write('n='); Readln(n);

dem:=0;

For i:=1 to n do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     If A[i]>0 then dem:=dem+1;

     End;

Writeln('Co ',dem,' so nguyen duong');

Readln

End.