Элементы одномерного массива 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= 13
W: 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.56267441800387
R: 3.30384888722021 0.570154344009936 2.32167986355325 3.57567996046749 1.54221639182092 1.45841604019661 3.56267441800387
Позиция мах: 4