Question

Помогите пожалуйста. Пять последних элементов последовательности y1,y2,..., y40 помножить на номер максимального элемента данной последовательности. В паскале

Answer 1

#include <iostream>

#include <vector>

using namespace std;

void group_multiply(vector<int> &a, int l, int r, int x){

   for(int i = l; i <= r; i++)

       a[i] *= x;

}

signed main(){

   const int n = 10;

   vector<int> a(n);

   int num = 0, max_elem = -INT_MAX;

   for(int i = 0; i < n; i++){

       cin >> a[i];

       if(a[i] > max_elem){

           max_elem = a[i];

           num = i+1;

       }

   }

   group_multiply(a,n-5,n-1,num);

   for(auto &i:a)

       cout << i << " ";

}

Answer 2

PascalABC.NET

Ответ:

• begin
• var y := ArrRandom(40,-20,20);
• var i := y.IndexMax+1;
• y.Println;
• Writeln;
• y.TakeLast(5).Select(x -> x*i).Print
• end.

Пример работы:

Answer 3

Конечно, я могу помочь вам с этим. Вот пример кода на языке Паскаль, который выполняет указанную операцию:

pascalCopy code
program MultiplySequence;
var
  sequence: array[1..40] of Integer; // Входная последовательность y1, y2, ..., y40
  i, maxIndex, maxValue: Integer;

begin
  // Здесь необходимо ввести значения для последовательности sequence

  // Находим индекс и значение максимального элемента
  maxIndex := 1;
  maxValue := sequence[1];
  for i := 2 to 40 do
  begin
    if sequence[i] > maxValue then
    begin
      maxValue := sequence[i];
      maxIndex := i;
    end;
  end;

  // Умножаем последние пять элементов на номер максимального элемента
  for i := 36 to 40 do
  begin
    sequence[i] := sequence[i] * maxIndex;
  end;

  // Выводим результат
  for i := 1 to 40 do
  begin
    writeln('y', i, ': ', sequence[i]);
  end;
end.

Примечание: В этом примере предполагается, что значения для входной последовательности sequence уже введены в соответствующую часть программы. Вы можете изменить эту часть кода, чтобы ввести свои значения перед выполнением программы.

Обратите внимание, что в Паскале индексация массивов начинается с 1, поэтому элементы от y1 до y40 будут храниться в sequence[1] до sequence[40]. Также, помните, что максимальный элемент будет найден только среди первых 40 элементов, поскольку исходный массив содержит 40 элементов.