Question

Дан массив А, состоящий из 19 элементов. Числа выбираются случайным образом из промежутка [-23;23]. Вычислить сумму четных элементов данного массива.

Answer 1

begin

var a:=ArrRandom(19,-23,23); a.Println;
var k:=a.Where(t->t mod 2 =0).Sum;
println('********');
println(k);
end.