Cho dãy A gồm N số nguyên A1,A2 ....An hãy cho biết có bao nhiêu số 5 trong dãy A

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]=5 then inc(d);
        End;

        Write('Co ',d,' so 5');
        Readln
End.

- Thuật toán :

+ Bước 1 : Nhập số N và dãy các số hạng A1, ... , AN

+ Bước 2 : i ← 1, d ← 0

+ Bước 3 : Nếu i > N thì đưa ra giá trị d rồi kết thúc

+ Bước 4 :

+ Bước 4.1 : Nếu a[i] = 5 thì d ← d + 1

+ Bước 4.2 : i ← i + 1 quay lại bước 3