Выдать максимальный из модулей элементов последовательности. ** Паскале Составьте код...

Question

Выдать максимальный из модулей элементов последовательности. На Паскале Составьте код пожалуйста и если не трудно блок-схему. СРОЧНО!!

Comments

Могу без блок-схемы. Рисовать лень.

---

Давай

Answer 1

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018

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

begin

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

 a.Println;

 a.Select(t -> Abs(t)).Max.Println

end.

n= 13

24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32

46