Вводится последовательность чисел. Посчитать в ней количество четных чисел, стоящих на четных местах.

Pascal:
program q196079147;
var
a, i, n, k: Integer;
begin
Readln(n);
k := 0;
for i := 1 to n do
begin
ReadLn(a);
Inc(k, Integer((not Odd(a)) and (not Odd(i))));
end;
WriteLn('Count: ', k);
ReadLn;
end.

C++:
#include <iostream>
using namespace std;
int main() {
int n, a, k = 0;
cin >> n;
for (int i = 1; i <= n; cin >> a, k += a % 2 == 0 && i % 2 == 0, i++);
cout << "Count: " << k << endl;
cin.ignore();
cin.get();
return 0;
}

Изврат на C++:
#include <iostream>
using namespace std;
int main() {
for (int n, a, k = 0, i = scanf("%d", &n); i <= n; cin >> a, k += a % 2 == 0 && i % 2 == 0, i == n? printf("Count: %d\n", k), cin.ignore(), cin.get(): i = i, i++);
return 0;
}

(сделал без массива, думаю так будет проще) С++ (не хочет писать после include iostrtem из-за <>

#include

using namespace std;

int main()
{
int num, counter = 0, n;
cin >> num;
for (int i = 1; i <= num; i ++)
{
cin >> n;
if ((i % 2 == 0) && (n % 2 == 0))
{
counter++;
}
}
cout << counter << endl;
return 0;
}