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.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