program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,dem,tong:longint;
begin
        clrscr;
        write('Nhap so phan tu cua mang: '); readln(n);
        dem:=0; tong:=0;
        for i:=1 to n do
                begin
                        write('A[',i,']: '); readln(a[i]);
                        if i mod 2=0 then
                                dem:=dem+1
                        else
                                tong:=tong+a[i];
                end;
        writeln('Co ',dem,' phan tu o vi tri chan');
        writeln('Tong cac phan tu o vi tri le: ',tong);
        readln;
end.

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,chan=0,total=0;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
        if(arr[i]%2==0){
            chan++;
        }
        if(i%2!=0){
            total+=arr[i];
        }
    }
    cout<<"So phan tu chan: "<<chan<<"\nTong phan tu o vi tri le: "<<total;
    //samon247
    return 0;
}