Вставка элемента в массив | Язык Паскаль
Pascal. Основы программирования Сложные Средние Простые задачи

Вставка элемента в массив

Требуется добавить элемент в произвольное место массива.

Алгоритм решения задачи:

  1. Задаем длину массива на один элемент больше, чем он будет заполнен в начале.
  2. Выясняем значение и позицию добавляемого элемента
  3. Все элементы до указанной позиции сдвигаем на один назад.
  4. Присваиваем по указанному индексу (позиции) значение.
  5. Остальная (передняя) часть массива не изменяется.

Программа на языке Паскаль:

const n = 6;
 
var
    arr: array[1..n] of integer;
    i, j, num, id: integer;
 
begin
    writeln('Заполните массив: ');
    for i := 1 to n - 1 do
        readln(arr[i]);
    write('Ваш массив: ');
    for i := 1 to n - 1 do
        write(arr[i]:5);
    writeln;
 
    write('Укажите еще один элемент: ');
    readln(num);
    write('Позиция в массиве: ');
    readln(id);
 
    for i := n - 1 downto id do
        arr[i+1] := arr[i];
    arr[id] := num;
 
    write(' Ваш массив: ');
    for i := 1 to n do
        write(arr[i]:5);
    writeln;

end.