ДАН ЦЕЛОЧИСЛЕННЫЙ МАССИВ ИЗ 30 ЭЛЕМЕНТОВ .ЭЛЕМЕНТЫ МАССИВА МОГУТ ПРИНИМАТЬ ЗНАЧЕНИЯ ОТ...

Question

ДАН ЦЕЛОЧИСЛЕННЫЙ МАССИВ ИЗ 30 ЭЛЕМЕНТОВ .ЭЛЕМЕНТЫ МАССИВА МОГУТ ПРИНИМАТЬ ЗНАЧЕНИЯ ОТ -1000 ДО 1000.ОПИШИТЕ НА РУССКОМ ИЛИ НА 1 ИЗ ЯЗЫКОВ ПРОГРАММИРОВАНИЯ АЛГОРИТМ ,КОТ ПОЗВОЛЯЕТ ПОДСЧИТАТЬ И ВЫВЕСТИ СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ ТЕХ ЭЛЕМЕНТОВ МАССИВА ,КОТ ПО СВОЕМУ ЗНАЧЕНИЮ МЕНЬШЕ ПОСЛЕДН ЭЛЕМЕНТА ЭТОГО МАССИВА .ГАРАНТИРУЕТСЯ ,ЧТО В ИСХОДНОМ МАССИВЕ ЕСТЬ ХОТЯ БЫ 1 ТАКОЙ ЭЛЕМЕНТ .

Answer 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