Создать массив из 10 случайных элементов целочисленного типа . Вывести его ** экран....

Question

Создать массив из 10 случайных элементов целочисленного типа . Вывести его на экран. Найти сумму всех четных элементов этого массива. Найти количество элементов больших 25

Answer 1

//PascalABC.NET 3.3

begin
 var a:=ArrRandom(10,1,100); a.Println;
 writeln('s = ',a.Where(x->x mod 2=0).Sum);
 writeln('k = ',a.Where(x->x>25).Count);
end. 

Пример:
17 61 20 13 34 14 83 13 12 96
s = 176
k = 4