Как изменить знак максимального по модулю элемента массива. Pascal. Help!!!!!!

Question

Как изменить знак максимального по модулю элемента массива. Pascal. Help!!!!!!

Comments

Max:=-Max

Answer 1

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

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

begin

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

 a.Println;

 var i := a.Select(t -> Abs(t)).ToArray.IndexMax;

 a[i] := -a[i];

 a.Println

end.

---

Comments

Ваше "попроще" - это на самом деле означает подлиннее. И еще: "с точек" начинают, а не заканчивают ими. И если вы с них не начали, то уже и не будете с ними работать: ваша учительница, скорее всего, не знает возможностей этой версии Паскаля. Но я не вижу причины, почему нужно дважды дать одну и ту же работу. Вы не указали ни версии Паскаля, ни особенностей того, как вы пишете программы, так что это уже Ваша вина.

---

в школах лямбды вряд ли преподают

---

Спасибо за программу, я без наездов итд,

---

у нас пока массивы

---

и наверное статические?

---

угу

---

Преподают. В восьмом классе. Я знаю такие школы. Не в полном объеме, конечно, но простые лямбды - почему нет? Кто Питон учит - тоже лямбды им дают.

---

Лямбду написать даже проще, чем функцию.

---

И главное: я бы не стал писать тут лямбды, если бы своими глазами не видел восьмиклассников, вовсю подсказывающих преподавателю на занятии, как писать лямбду.

---

akrom: я всего-то лишь хотел, чтобы Вы поняли, как следующий раз ставить вопрос, чтобы получить ожидаемый ответ.

Answer 2

Решение в стиле турбо-паскаля или фрипаскаля, со статическим массивом

---