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

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

Ученые сходятся во мнении, что заслуга изобретения книгопечатания должна быть закреплена за Гутенбергом. 
Человек по имени Ганс Генсфлейш, или Иоганн Гутенберг (1394/1399-1468), родился в последние годы XIV века в крупном немецком городе Майнце. К 1440 г. относятся его первые типографские опыты. По-видимому, это были: грамматика латинского языка Элия Доната, астрологический календарь, папские индульгенции. Вскоре, он принялся за подготовку к печати полной Библии на латинском языке. 
В 1450-1455 гг. , как считают, Гутенберг напечатал свою первую Библию.

Ученые сходятся во мнении, что заслуга изобретения книгопечатания должна быть закреплена за Гутенбергом.
Человек по имени Ганс Генсфлейш, или Иоганн Гутенберг (1394/1399-1468), родился в последние годы XIV века в крупном немецком городе Майнце. К 1440 г. относятся его первые типографские опыты. По-видимому, это были: грамматика латинского языка Элия Доната, астрологический календарь, папские индульгенции. Вскоре, он принялся за подготовку к печати полной Библии на латинском языке.
В 1450-1455 гг. , как считают, Гутенберг напечатал свою первую Библию.