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

Если что-то непонятно, спрашивайте)

благодарю

пожалуйста

// 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.Printlnend.Примерn= 10Вводите элементы массива: 13 18 -7 14 6 -11 19 14 2 1013 342 -7 266 6 -209 19 14 2 10