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

Question

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

Answer 1

// 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

Answer 2

#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;<br>}