Дан целочисленный массив из 30 элементов .элементы массива могут принимать значения от -1000 до 1000.опишите на или на 1 из языков программирования алгоритм ,кот позволяет подсчитать и вывести среднее арифметическое тех элементов массива ,кот по своему значению меньше последн элемента этого массива .гарантируется ,что в исходном массиве есть хотя бы 1 такой элемент .

// PascalABC.NET 3.3

begin
 var a:=ArrRandom(30,-1000,1000); a.Println;
 writeln('Среднее арифметическое = ',a.Where(x->x>a[a.Length-1]).Average);
end.

Пример:
64 682 811 -812 934 -16 -852 -903 584 -248 797 -554 -466 -671 320 739 -575 -662 -882 -927 784 419 929 258 358 -73 -418 674 -196 389
Среднее арифметическое = 735.3