Viết chương trình đếm số phần tử dương có trong mảng nguyên A gồm N phần tử được nhập từ bàn phím

Program bai3;Uses crt;Var  A : Array [1..100] of integer;      N,i, dem : integer;
     Begin  Write('nhap N');  Readln(N);  For i:= 1 to N do     Begin         Write('Nhap phan tu thu ',i);         Readln(A[i]);     end;   dem := 0;  For i := 1 to N do 
     If A[i] > 0 then Dem := Dem + 1 ;  
  Write(' So phan tu duong la: ', Dem ;  Readln

Theo mk thì lm vậy, htr mk có nghe cô công nghệ thông tin của bọn mk giảng qua 

Chúc bạn hok tốt