Паскаль. дан целочисленный массив из 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.