Напишите программу на языке паскаль ввести одномерный массив a , вывести его. найти наибольший элемент среди тех, которые находятся на нечетных позициях. на полученное значением уменьшить элементы с чётными индексами массива.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var amin:=a.Where((x,i)->i.IsEven).Max; a:=a.Select((x,i)->i.IsOdd?x-amin:x).ToArray; a.Println end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var amin:=a.Where((x,i)->i.IsEven).Max;
a:=a.Select((x,i)->i.IsOdd?x-amin:x).ToArray; a.Println
end.
Пример
n= 15
11 37 50 31 9 -15 49 29 26 -5 27 -6 -17 -12 -26
11 -13 50 -19 9 -65 49 -21 26 -55 27 -56 -17 -62 -26