Одномерный массив состоит из 7 чисел определить среднее арифметическое чедных чисел

Question

Одномерный массив состоит из 7 чисел определить среднее арифметическое чедных чисел

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(7,-50,50);
  Writeln('Среднее четных: ',a.Println.Where(k->k.IsEven).Average)
end.

Пример
10 -4 13 10 -27 50 40
Среднее четных: 21.2

Answer 2

Begin
  var a := ArrRandom(7, -10, 10);
  a.println();
  writeln(a.Where(x -> x mod 2 = 0).Average);
end.