Предмет: Информатика,
автор: BIRINA17
Составьте программу которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычислите сумму элементов массива с чётными значениями
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В других версиях языка работа не гарантируется!
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln('S=',a.Where(x->x.IsEven).Sum)
end.
Пример
8 7 5 4 3 8 2 2 6 7
S=30
// Внимание! В других версиях языка работа не гарантируется!
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln('S=',a.Where(x->x.IsEven).Sum)
end.
Пример
8 7 5 4 3 8 2 2 6 7
S=30
Похожие вопросы
Предмет: Литература,
автор: kapdkin2005
Предмет: Математика,
автор: barabanoaavera
Предмет: Обществознание,
автор: ghfdghfrt
Предмет: Математика,
автор: evgeniapavlyhin