Question

Помогите пожалуйста сделать задачу на Pascal.На одномерный массив. Вставить в массив число 10 после второго элемента.

Answer 1

Pascal abc
Проверка
исходный массив
12  8  17  5  16  10  4  13  16  16
 новый массив
12  8  10  17  5  16  10  4  13  16  16   

Answer 2

Конечно, я могу помочь вам с задачей на Pascal. Вам нужно вставить число 10 в одномерный массив после второго элемента. Вот пример кода, который решает эту задачу:

program InsertElement;
const
  N = 10; // размер массива
var
  arr: array[1..N] of integer;
  i: integer;
begin
  // Инициализация массива
  for i := 1 to N do
    arr[i] := i;
  
  // Вставка числа 10 после второго элемента
  for i := N downto 3 do
    arr[i + 1] := arr[i];
  arr[3] := 10;
  
  // Вывод массива на экран
  for i := 1 to N do
    writeln(arr[i]);
end.

В этом коде мы создаем массив `arr` размером 10 элементов и инициализируем его значениями от 1 до 10. Затем мы сдвигаем все элементы массива, начиная с третьего, на одну позицию вправо, чтобы освободить место для числа 10. После этого мы присваиваем значение 10 элементу с индексом 3. Наконец, мы выводим значения массива на экран.

Обратите внимание: В приведенном выше коде используется индексация массива с 1 до N. Если вам нужна индексация с 0 до N-1, вам нужно будет изменить объявление массива и циклы соответствующим образом.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.