Question

определить номер наибольшего элемента массива A и наибольшего значения среди модулей элементов массива A. Составить программу в паскале. Массив одномерный и значений ну скажем пусть будет пять

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Println('Номер максимального элемента', a.IndexMax + 1);

 Println('Номер максимального по модулю элемента',

     a.IndexOf(a.MaxBy(x -> Abs(x))) + 1)

end.