Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с любым удобным для вас способом.
*Сумму элементов массива, имеющих четное значение:
*Вывести количество элементов, значения которых больше заданного числа A

ar.Where(x -> x > a).Count.Println;

begin var ar := arrrandom(30, 1, 20); ar.Println; writeln(ar.Where(x -> x mod 2 = 0).Sum); var a := readinteger; write(ar.Where(x -> x > a).Count); end.

begin   var ar := arrrandom(30, 1, 20);   ar.Println;   writeln(ar.Where(x -> x mod 2 = 0).Sum);   var a := readinteger;   write(ar.Where(x -> x > a).Count); end.