Найти сумму и количество нечетных по значению - вопрос №8854173 от shcooltime 03.03.2022 12:05

Question

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

shcooltime · 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)