Дан массив из 7 элементов. Найти произведение четных чисел и кол-во нечётных

#include <iostream>using namespace std;int main() { int a[7]; int k = 0, p = 1; for(int i = 0; i < 7; i++) {   cin >> a[i];   if(a[i] % 2 == 0) p*=a[i];   else k++; } cout << "Произведение: " << p << endl << "Количество: " << k << endl;}

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger(7);  Write('Произведение четных: ',    a.Where(x->x.IsEven).Aggregate(1.0,(x,y)->x*y),    ', количество нечетных: ',a.Where(x->x.IsOdd).Count)end.Пример-15 8 42 11 95 118 -27Произведение четных: 39648, количество нечетных: 4