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

12345687654321ytrye 12345687654321ytrye    3   25.07.2019 04:50    0

Ответы
Mаs9n9 Mаs9n9  24.09.2020 10:45
// 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика