Ответы
Ответ дал:
0
// 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.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ArrRandom(ReadInteger('k='),-50,50); n.Println;
var s:=n.Where(t->t.IsOdd);
Writeln('Нечетных: ',s.Count,', их сумма равна ',s.Sum)
end.
Приложения:
![](https://st.uroker.com/files/cde/cdece57f0d6fbdbe868f41275ec6acfc.jpg)
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
8 лет назад