В массиве найти среднее значение элементов кратных 4,оканчивающихся на 2. В массиве неизвестно количество элементов,но не более 100,ввод элементов оканчивается 0
Ответы на вопрос
Ответил Аноним
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.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.
Внимание! Если программа не работает, обновите версию!
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.
Новые вопросы