uses crt;

Var a:array[1..50] of integer;

i,n:integer;

Begin

S:=0;

Write('Nhap pt mang'); readln(n);

For i:=1 to n do begin

Write('A[',i,']='); readln(A[i]);

End;

If n<=500 then

for i:=0 to n do

s:s+a[i];

If s mod 3 = 0 then write('So chia het cho 3')

Else write('Khong chia het cho 3');

Readln

End. 

Chạy thử nhé. Mình đang dùng đt

#include<bits/stdc++.h>
using namespace std;
#define cls system("cls")
bool chiahet3(int a)
{
    if (a%3==0){
        return true;
    }
    return false;
}
void nhapmang(int *a, int &n)
{
    for (int i = 0; i<n; i++)
    {
        cout << "a[" << i << "]=";
        cin >> *(a + i);
    }
}
int main()
{
    int n,total=0;
    cin>>n;
    if(n>500){
        cls;
        return main();
    }
    int arr[n];
    nhapmang(arr,n);
    for(int i=0;i<n;i++){
        if(chiahet3(arr[i])||arr[i]%5==0){
            total+=arr[i];
        }
    }
    cout<<"Tong cac so chia het cho 3 hoac cho 5 trong mang la: "<<total;
    //samon247
    return 0;
}