Đếm xem có bao nhiêu số chia hết cho 3 mà ko chia hết cho 5

*   Xác định bài toán :

    -  Input : Số nguyên N và dãy a₁, a₂,…, a_N.

    -  Output : Số các số chia hết cho 3 mà không chia hết cho 5.

*  Thuật toán :

- Bước 1 : Nhập N và dãy a₁, a₂,…, a_N;

- Bước 2 : i←1; S←0;

- Bước 3 : Nếu i > N thì đưa ra giá trị S rồi kết thúc; (S là số các số chia hết cho 9).

- Bước 4 :

+ Bước 4.1 : Nếu a_i chia hết cho 3 và không chia hết cho 5 thì S←S+1;

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

Program TB;
Uses crt;
Var A: array[1..10000] of longint;
    i,s,n: longint;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        s:=0;
        For i:=1 to n do
                If (A[i] mod 3 = 0) and (A[i] mod 5 <> 0) then inc(s);
        Write('Co ',s,' so chia het cho 3 khong chia het cho 5');
        Readln
End.