Question

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

Answer 1

// PascalABC.NET

begin

 var y := ArrRandom(40, -99, 99);

 y.Println;

 var nmax := y.IndexMax + 1;

 y.Transform((v, i) -> i < 35 ? v : v * nmax);

 y.Print

end.

Answer 2

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

pascalCopy code
program MultiplyLastFiveByMax;

var
  y: array[1..40] of Integer; // Предполагается, что у вас есть массив y с элементами
  i, maxIndex, maxElement: Integer;

begin
  // Здесь вам нужно заполнить массив y своими значениями

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

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

  // Выводим результаты
  writeln('Исходная последовательность y:');
  for i := 1 to 40 do
  begin
    write(y[i], ' ');
  end;
  writeln;

end.

Обратите внимание, что в этом коде предполагается, что у вас есть массив y с 40 элементами, и вы должны его заполнить перед использованием. Код находит максимальный элемент в массиве y, затем умножает последние пять элементов массива на номер максимального элемента, а затем выводит результаты.