Question

Ввести с клавиатуры массив из 5 элементов, найти в нем
максимальный и минимальный элементы и их номера.
Пример:
Исходный массив:
4 -5 10 -10 5
максимальный A[3]=10
минимальный A[4]=-10.ПАСКАЛЬ​

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(5);

 var (imx, imn) := (a.IndexMax, a.IndexMin);

 Writeln('максимальный A[', imx + 1, ']=', a[imx]);

 Writeln('минимальный A[', imn + 1, ']=', a[imn])

end.