Все элементы массива с чётными номерами предшествующие первому по порядку элементу с максимальным значением умножить на максимальное значение. при динамических типов ( и без рандома ) : )

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

begin
  var a:=ReadArrInteger('Вводите элементы массива:',ReadInteger('n='));
  var imax:=a.IndexMax;
  var max:=a[imax];
  foreach var i in Range(1,imax-1,2) do a[i]*=max;
  a.Println
end.

Пример
n= 10
Вводите элементы массива: 13 18 -7 14 6 -11 19 14 2 10
13 342 -7 266 6 -209 19 14 2 10