Cho dãy A gồm N số từ a1,...,an.Viết thuật toán đếm số âm mà là bội của 3

2 câu trả lời

uses crt;
var n,i,d : integer;
a : array[1..100] of longint;
begin
write('Nhap n :'); readln(n);
d:=0;
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if (a[i]<0) and (a[i] mod 3=0) then d:=d+1;
write(d);
readln
end.

#include <iostream>
#include <fstream>
using namespace std;
int main()
{
    int n,a=0;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
        if(arr[i]%3==0&&arr[i]<0){
            a++;
        }
    }
    cout<<a;
    return 0;
}