Pascal! Ввести массив из 5 элементов, найти в нём макс. и мин. элемент и их номера. Плз

Question

Pascal! Ввести массив из 5 элементов, найти в нём макс. и мин. элемент и их номера. Плз

Answer 1

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal('Введите 5 чисел:',5);
  var i:=a.IndexMax;
  Writeln('Максимум A[',i+1,']=',a[i]);
  i:=a.IndexMin;
  Writeln('Минимум  A[',i+1,']=',a[i])
end.

Пример
Введите 5 чисел: 3.4 6.1 -5.2 0 2
Максимум A[2]=6.1
Минимум  A[3]=-5.2