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

// 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.Printlnend.Примерn= 1533 60 -72 13 -15 -36 21 98 -21 -22 56 -20 0 -98 2833 60 98 13 -15 -36 21 -72 -21 -22 56 -20 0 -98 282)begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  a:=a[:4]+Arr(8)+a[4:]; a.Println;end.Примерn= 1065 56 31 74 -4 -54 43 8 -58 -9465 56 31 74 8 -4 -54 43 8 -58 -94