• VCT nhập vào một dãy gồm N số nguyên dương. Đếm số lượng các số chia hết cho 3.

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

program oken;

uses crt;

var  a: array [1..100] of integer;

       n,i,dem:integer;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do 

    begin

         write('a[',i,']: '); readln(a[i]);

         if a[i] mod 3 = 0 then dem:=dem+1;

    end;

writeln('so luong cac so chia het cho 3: ',dem);

readln;

end.