Question

1)Составьте программу обмена в массиве B(N) первого отрицательного и максимального элементов. 2)Составьте программу вставки в массив A(N) пятого элемента, равного 8.

Answer 1

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

1)

begin
  var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
  var jn:=b.FindIndex(x->x<0); // индекс первого отрицательного
  var jm:=b.IndexMax; // индекс первого максимального
  Swap(b[jn],b[jm]); b.Println
end.

Пример
n= 15
33 60 -72 13 -15 -36 21 98 -21 -22 56 -20 0 -98 28
33 60 98 13 -15 -36 21 -72 -21 -22 56 -20 0 -98 28

2)

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a:=a[:4]+Arr(8)+a[4:]; a.Println;
end.

Пример
n= 10
65 56 31 74 -4 -54 43 8 -58 -94
65 56 31 74 8 -4 -54 43 8 -58 -94