Question

Составить программу формирования из массива A(N) двух массивов. В которых первый массив заполнен предшествующими минимальному, а второй-остальными элементами.

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var imin:=a.IndexMin;
  var b:=a[:imin]; b.Println;
  var c:=a[imin:]; c.Println
end.

Пример
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65