Question

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

Answer 1

// 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

Answer 2

Для решения этой задачи нужно выполнить несколько шагов:

1. Вычислить элементы исходного массива W(T) с помощью заданной формулы.

2. Вычислить среднее арифметическое элементов массива W(T).

3. Сформировать новый массив R(F), включив в него только те элементы массива W(T), которые больше среднего арифметического.

4. Найти максимальный элемент в массиве R(F) и определить его позицию.

Давайте реализуем каждый из этих шагов на языке Python:

pythonCopy code
import numpy as np

# Шаг 1
W = np.array([2 * np.sin(T) + 3 * np.cos(T) for T in range(10)])

# Шаг 2
mean = np.mean(W)

# Шаг 3
R = W[W > mean]

# Шаг 4
max_val = np.max(R)
max_pos = np.argmax(R)

В результате выполнения этого кода в переменной W будет храниться исходный массив, в переменной mean - среднее арифметическое элементов этого массива, в переменной R - новый массив, содержащий элементы из массива W, которые больше mean, а в переменных max_val и max_pos - максимальное значение и его позиция в массиве R.