Дан массив А(10). Определить наибольший по модулю элемент массива и его номер.

Question

Дан массив А(10). Определить наибольший по модулю элемент массива и его номер.

Answer 1

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var a:=ArrRandom(10,-100,100); a.Println;
  var i:=a.Select(x->abs(x)).ToArray.IndexMax;
  Writeln('Максимальный по модулю А[',i+1,']=',a[i])
end.

Тестовое решение:
-55 -41 -67 -5 -52 6 -95 -93 -6 -45
Максимальный по модулю А[7]=-95