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.

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