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

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