chương trình nhập mảng một chiều gần n phần tử (n<=100) kiểu nguyên rồi thực hiện đếm số lượng tử dương cho kết quả ra màn hình (các b viết chương trình theo hướng giải quyết của chương trình con học lp 11 nhé!!!?)

#include <bits/stdc++.h>
using namespace std;
void duong(int n, int &a)
{
    if(n>0){
        a++;
    }
}
int main() {
    int n,a=0;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
    }
    for(int i=0;i<n;i++){
        duong(arr[i],a);
    }
    cout<<a;
    //samon247
    return 0;
}

uses crt;
var n,i,d : integer;
a : array[1..100] of longint;
procedure nhap(n : integer);
begin
write('Nhap n :'); readln(n);
d:=0;
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i]>0 then d:=d+1;
writeln('So lung phan tu duong :',d);
for i:=1 TO n do if a[i]>0 then write(a[i]:3);
end;
begin clrscr;
nhap(n);
readln
end.