const n = 10;var T: array[1..n + 1] of integer; i, j, k: integer;begin Writeln('Введите ', n, ' элементов массива'); for i := 1 to n do Read(T[i]); Write('Укажите индекс числа и само число для вставки: '); Readln(j, k); for i := n downto j do T[i + 1] := T[i]; T[j] := k; Writeln('Результирующий массив:'); for i := 1 to n + 1 do Write(T[i], ' ')end.
Тестовое решение:Введите 10 элементов массива-5 3 12 81 35 0 43 92 -23 53Укажите индекс числа и само число для вставки: 4 777Результирующий массив:-5 3 12 777 81 35 0 43 92 -23 53