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