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

#include 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