Найти сумму и количество нечетных по значению - вопрос №8853271 от Anna282005u 18.03.2020 20:11

Question

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

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