50баллов.Паскаль. Дан целочисленный массив из 30 элементов заданный случайным образом. элементы массива могут принимать целые значения от 0 до 100 -баллы учащихся за тест по информатике. составьте программу, которая позволяет найти и вывести количество учащихся, чья оценка за тест четная и больше 45 баллов.

//PascalABC.NET 3.4.2

begin

 var ar := arrrandom(30, 0, 100).Println;

 ar.Where(x -> (x mod 2 = 0) and (x > 45)).Print;

end.