Вставить число, равное первому элементу массива после его третьего элемента. Решить с...

Question

Вставить число, равное первому элементу массива после его третьего элемента.
Решить с помощью Паскаля

Answer 1

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

Comments

Pascal ABC надо и чуть проще)