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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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