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. Напишите пожалуйста программу на паскале

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

Answer 2

Конечно, вот программа на Pascal, которая выполняет задачу, описанную в вашем вопросе:

arduinoCopy code
program InsertNumberToArray;

var
  arr: array[1..10] of Integer; // создаем массив из 10 элементов
  i, n, x: Integer;

begin
  // заполняем массив числами от 1 до 10
  for i := 1 to 10 do
  begin
    arr[i] := i;
  end;

  // получаем от пользователя индекс и число
  writeln('Введите индекс числа и само число:');
  readln(n, x);

  // сдвигаем элементы массива вправо, начиная с индекса n
  for i := 10 downto n+1 do
  begin
    arr[i] := arr[i-1];
  end;

  // вставляем новое число на место, освобожденное сдвигом
  arr[n] := x;

  // выводим новый массив на экран
  writeln('Новый массив:');
  for i := 1 to 10 do
  begin
    write(arr[i], ' ');
  end;
end.

Программа создает массив из 10 элементов, заполняет его числами от 1 до 10, затем запрашивает у пользователя индекс и число, которое нужно вставить в массив. Далее она сдвигает все элементы массива, начиная с индекса n, на одну позицию вправо, чтобы освободить место для нового числа, и вставляет новое число на его место. Наконец, программа выводит новый массив на экран.