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

// 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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.