// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var d:=ArrRandom(8,-50,50); d.Println;
d:=(d[:4]+Arr(5)+d[4:]).ToArray; d.Println
end.
Пример
16 25 -2 45 50 6 -29 43
16 25 -2 45 5 50 6 -29 43