Вставить число, равное первому элементу массива после - вопрос №8115407 от 4fhfhiukhriu 30.03.2021 00:39

Question

Информатика: Вставить число, равное первому элементу массива после его третьего элемента. решить с паскаля

4fhfhiukhriu · Answer

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

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=(a[:3]+a.First+a[3:]).ToArray; a.Println
end.

Пример
n= 12
-16 24 -32 -11 -10 41 -32 -34 46 -32 44 -38
-16 24 -32 -16 -11 -10 41 -32 -34 46 -32 44 -38