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

Question

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

Answer 1

// 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.

---