Найти сумму и количество нечетных по значению - вопрос №8853271 от Котик132457 29.02.2020 11:27

Question

Информатика: Найти сумму и количество нечетных по значению элементов массива n(k)

Котик132457 · Answer

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

begin
var n:=ArrRandom(ReadInteger('k='),-50,50); n.Println;
var s:=n.Where(t->t.IsOdd);
Writeln('Нечетных: ',s.Count,', их сумма равна ',s.Sum)
end.

Найти сумму и количество нечетных по значению элементов массива n(k)

Найти сумму и количество нечетных по значению элементов массива n(k)