Question

Написать программы! 1.найти последний максимальный элемент и указать его номер; 2.поменять местами минимальные и максимальные элементы; 3. упорядочить массив по возрастанию ( по убыванию)

Answer 1

//PascalABC.Net 3.1 сборка 1200
begin
  var a := ArrRandom(20, -50, 50);
  a.Println;
  //1
  writeln('Max = ', a.Max, ' Index = ', a.Length - a.Reverse().ToArray.IndexMax);
  //2
  swap(a[a.IndexMax], a[a.IndexMin]);
  a.Println;
  //3
  a.Sorted.Println;
  a.SortedDescending.Println;
end.