Question

Сгенерировать массив из N=10 случайных чисел {-20;95}, вывести. Найти минимальный и максимальный элементы и их индексы, вывести на следующей строчке. Поменять местами минимальный и максимальный элементы, вывести полученный массив на следующей строчке.

Answer 1

begin
  var a:=ArrRandom(10,-20,95); a.Println;
  var imax:=a.IndexMax;
  Println('max = ',a.Max,' imax = ',imax+1);
  var imin:=a.IndexMin;
  Println('min = ',a.Min,' imin = ',imin+1);
  Swap(a[imin],a[imax]); a.Println;
end.

Пример:
56 76 -20 89 85 39 -5 39 -5 41
max =  89  imax =  4 
min =  -20  imin =  3 
56 76 89 -20 85 39 -5 39 -5 41