Элементы одномерного массива w(t) получаются расчетом по формуле w(t)= 2sin(t)+3cos(t), где t- позиция элемента в массиве w(t). сформируйте новый массив r(f), состоящий из элементов массиваw(t), которые больше среднего арифметического элементов исходного массива. в новом массиве определите позицию максимального элемента.
// Внимание! Если программа не работает, обновите версию!
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