Question

Помогите пожалуйста. В ПАСКАЛЕ. Пять последних элементов последовательности y1,y2,..., y40 помножить на номер максимального элемента данной последовательности.

Answer 1

// PascalABC.NET

begin

 var y := ArrRandom(40, -99, 99);

 y.Println;

 var nmax := y.IndexMax + 1;

 y.Transform((v, i) -> i < 35 ? v : v * nmax);

 y.Print

end.