Дан массив из 10 элементов. Найти и вывести ** экран максимальный и минимальный элементы...

Question

Дан массив из 10 элементов. Найти и вывести на экран максимальный и минимальный элементы и их порядковые номера

Answer 1

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

begin
  var a:=ArrRandom(10,-50,50); a.Println;
  var p:=a.IndexMin;
  Writeln('Номер минимального элемента ',p+1,
      ', его значение ',a[p]);
  p:=a.IndexMax;
  Writeln('Номер максимального элемента ',p+1,
      ', его значение ',a[p]);
end.

Пример
40 4 40 46 45 -42 -27 30 40 -13
Номер минимального элемента 6, его значение -42
Номер максимального элемента 4, его значение 46