Дан массив а(10). определить наибольший по модулю - вопрос №541876410 от elizaveta2001kz 13.02.2022 00:43

Question

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

elizaveta2001kz · Answer

// 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