helpppp - Trong Pascal nhập vào một dãy số nguyên K - In ra màn hình xem có bao nhiêu số chẵn trong dãy số nguyên X Input N=10 2 5 7 9 8 10 4 65 89 56 Output 5

2 câu trả lời

#include <bits/stdc++.h>
using namespace std;
int main() {
    int n,b,chan=0,a=0;
    cin>>n;
    while(a<n){
        cin>>b;
        if(b%2==0){
            chan++;
        }
        a++;
    }
    cout<<chan;
    //samon247
    return 0;
}

Var i,n,d : Integer;
a: array[1..100] of integer;
Begin
Readln(n);d:=0;
For i:= 1 to n do
Read(a[i]);
For i := 1 to n do
If a[i] mod 2 = 0 then d:= d+1;
Writeln(d);
End.