program DemPhanTuDuong;
 uses crt;
 var dem, n, a, i : integer;
begin
    clrscr;
    dem := 0;
    write('Nhap so phan tu n: ');
    readln(n);
    for i := 0 to n - 1 do
        begin
            write('Nhap gia tri a[', i, ']: ');
            readln(a);
            if a > 0 then
                dem := dem + 1;
        end;
    writeln('So phan tu duong la: ', dem);
    readln;
end.

Bài này khá đơn giản mà em, tư duy lên 1 xíu là làm được.