50баллов.Паскаль. Дан целочисленный массив из 30 элементов заданный случайным образом. элементы массива могут принимать целые значения от 0 до 100 -баллы учащихся за тест по информатике. составьте программу, которая позволяет найти и вывести количество учащихся, чья оценка за тест четная и больше 45 баллов.
Answers & Comments
//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.