Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от
0 до 1000. Напишите программу, которая находит и выводит сумму всех элементов массива, имеющих чётное значение.

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

begin

 var A := ArrRandom(30, 0, 1000);

 A.Where(p -> p mod 2 = 0).Sum.Println;

end.