Hugidora
6 год назад
Подсчитать сумму всех элементов кратных 2 , в массиве из 10 чисел
ОТВЕТЫ
Koanav
Jul 21, 2019
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(10,1,30); a.Println;
Writeln(Сумма четных чисел равна ,a.Where(x-gt;x.IsEven).Sum)
end.
Пример
27 11 27 26 20 17 26 20 3 25
Сумма четных чисел равна 92
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(10,1,30); a.Println;
Writeln(Сумма четных чисел равна ,a.Where(x-gt;x.IsEven).Sum)
end.
Пример
27 11 27 26 20 17 26 20 3 25
Сумма четных чисел равна 92
128
Смежные вопросы:
