Вставить число, равное первому элементу массива - вопрос №8114505 от lina5555555 24.02.2021 18:45

Question

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

lina5555555 · 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