Дан массив из n чисел. Пользователь вводит индекс числа и само число. И надо вставить это...

Question

Дан массив из n чисел. Пользователь вводит индекс числа и само число. И надо вставить это число. Допустим массив 1 2 3 4 5 6 7 8 9 10 пользователь ввел индекс 3 и число 6 массив должен получиться таким 1 2 6 3 4 5 6 7 8 9 10. Напишите пожалуйста программу на паскале

Comments

Но тогда в результате получится массив из n+1 числа - это верно?

---

И еще, массив заполнять от датчика случайных чисел или вводом с клавиатуры?

---

с клавиатуры

---

да

Answer 1

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

Comments

Вот как вы понимаете

---

Как раз-таки Ваш комментарий совсем не понял))