Cho một số nguyên dương N và dãy N số a1, a2, ..., an. Đếm số phần tử lớn hơn không trong dãy.

a)

Input: số nguyên n, dãy số nguyên A, số nguyên k

Output: số lượng phần tử có giá trị lớn hơn k

b)

Thuật toán:

B1: Nhập N, dãy số nguyên A, số nguyên k

B2: dem←0; i←1;

B3: Nếu i>N thì chuyển đến B6.

B4: Nếu A[i]>k thì dem←dem+1

B5: i←i+1; Quay lại B3.

B6: In dem ra màn hình và kết thúc.

 đấy là dạng tổng quát nhất , chuyển k thành 0 là oke nha...(xin hay nhất ạ )

uses crt;
var n,i,cnt:longint;
    a:array[1..1000] of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do
        begin
            read(a[i]);
            if(a[i] > 0) then inc(cnt);
        end;
    writeln(cnt);
readln; readln;
end.