В массиве найти среднее значение элементов кратных 4,оканчивающихся ** 2. В массиве...

Question

В массиве найти среднее значение элементов кратных 4,оканчивающихся на 2. В массиве неизвестно количество элементов,но не более 100,ввод элементов оканчивается 0

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

1. В принципе, массив тут совершенно не нужен:

begin
  ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 4=0) and (t mod 10=2))
    .DefaultIfEmpty.Average.Println
end.

2. Но если хочется удлинить решение и получить лишний расход памяти, можно и с массивом:

begin
  var a:=ReadSeqIntegerWhile(t->t<>0).ToArray;
  a.Where(t->(t mod 4=0) and (t mod 10=2)).DefaultIfEmpty.Average.Println
end.