Viết chương trình nhập vào n số nguyên dương và tính tổng các số chẵn lẻ

uses crt;
var a : array[1..100] of integer;
n,i ,c,l : integer;
begin c:=0; l:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do begin
write('Nhap phan tu ',i,':'); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2=0 then c:=c+a[i] else l:=l+a[i];
write('Tong chan :', c);
write('Tong le :', l);
readln
end.

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,le=0,chan=0;
    cin>>n;
    int arr[n];
    for(int samon247=0;samon247<n;samon247++){
        cin>>arr[samon247];
    }
    for(int i=0;i<n;i++){
        if(arr[i]%2==0){
            chan+=arr[i];
        }
        else{
            le+=arr[i];
        }
    }
    cout<<"Tong cac so le: "<<le<<endl;
    cout<<"Tong cac so chan: "<<chan;
    return 0;
}