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

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.

Comments

Это что-то уже на загранном уровне, мне нужно это все в банальном стиле чере циклы

---

У Вас ничего не было в вопросе написано про то, как писать программу.

---

Если вас учат, как из программы в четырех строках сделать полтора десятка строк, то я уж тут не виноват...