Question

7. Создать массив случайных чисел. Вывести. Найти минимальный элемент и его индекс. Вывести. Вывести массив таким образом: сначала те элементы массива, которые идут за минимальным, затем те элементы, которые - перед минимальным включая и сам минимальный элемент. (на ПАСКАЛЕ)

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var imin:=a.IndexMin;
  Writeln('Минимальный элемент №',imin+1,' равен ',a[imin]);
  (a[imin+1:]+a[:imin+1]).Println
end.

Пример
n= 15
-28 1 28 39 43 48 -7 -26 50 39 -24 -40 -20 -18 35
Минимальный элемент №12 равен -40
-20 -18 35 -28 1 28 39 43 48 -7 -26 50 39 -24 -40