Составьте программу , которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива с чётными значениями . Помогите пж.
begin
var a := ArrRandom(10, 1, 10);
a.Println;
a.Where(t->t.IsEven).DefaultIfEmpty.Average.Println;
end.