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

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.Printlnend.2. Но если хочется удлинить решение и получить лишний расход памяти, можно и с массивом:begin  var a:=ReadSeqIntegerWhile(t->t<>0).ToArray;  a.Where(t->(t mod 4=0) and (t mod 10=2)).DefaultIfEmpty.Average.Printlnend.