В массиве А[1..N] определить максимальное значение. Все элементы, находящиеся в массиве до максимального значения, увеличить на первое значение массив.Помогите плиз.
Answers & Comments
mesteron98// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var a1:=a[0]; for var i:=0 to a.IndexMax-1 do a[i]+=a1; a.Println end.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50);
a.Println;
var a1:=a[0];
for var i:=0 to a.IndexMax-1 do a[i]+=a1;
a.Println
end.
Пример
n= 15
14 48 41 22 -4 48 -27 -23 49 -17 -46 -12 -2 3 -42
28 62 55 36 10 62 -13 -9 49 -17 -46 -12 -2 3 -42