Элементы одномерного массива W(T) получаются расчетом по формуле W(T)= 2sin(T)+3cos(T), где T- позиция элемента в массиве W(T). Сформируйте новый массив R(F), состоящий из элементов массиваW(T), которые больше среднего арифметического элементов исходного массива. В новом массиве определите позицию максимального элемента.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!begin  var W:=ArrGen(ReadInteger('n='),i->2*Sin(i+1)+3*Cos(i+1));  Write('W: '); W.Println;  var R:=W.Where(t->t>W.Average).ToArray;  Write('R: '); R.Println;  Writeln('Позиция мах: ',R.IndexMax+1)end.Примерn= 13W: 3.30384888722021 0.570154344009936 -2.6877374736816 -3.47453585320669 -1.0668619929366 2.32167986355325 3.57567996046749 1.54221639182092 -1.90915381517052 -3.6052568090081 -1.98670331913725 1.45841604019661 3.56267441800387R: 3.30384888722021 0.570154344009936 2.32167986355325 3.57567996046749 1.54221639182092 1.45841604019661 3.56267441800387Позиция мах: 4