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.
// Внимание! Если программа не работает, обновите версию!
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