Вмассиве а[1..n] определить максимальное значение. все элементы, находящиеся в массиве до максимального значения, увеличить на первое значение массив.

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50);
  a.Println;
  var a1:=a[0];
  for var i:=0 to a.IndexMax-1 do a[i]+=a1;
  a.Println
end.

Пример
n= 15
14 48 41 22 -4 48 -27 -23 49 -17 -46 -12 -2 3 -42
28 62 55 36 10 62 -13 -9 49 -17 -46 -12 -2 3 -42

#include <iostream>

using namespace std;

int main() {
 int n;
 cin >> n;
 int max = INT32_MIN;
 int max_index = 0;
 for(int i = 0; i < n; i++) {
   cin >> a[i];
   if(a[i] > max) {
     max = a[i];
     max_index = i;
   }
  }
  for(int i = 0; i < max_index; i++) 
    a[i]+=a[0];
  cout << max << endl;
}
язык C++