Составьте программу вставки в массив первого элемента, равного 7 - Turbo Pascal

Формулировка задачи:

2.Составьте программу вставки в массив первого элемента, равного 7. Составьте программу,пожалуйста

Решение задачи: «Составьте программу вставки в массив первого элемента, равного 7»

Листинг программы

var a: array[1..20] of integer;
    n,i:byte;
begin
randomize;
repeat
write('Введите размер массива от 1 до 19 n=');
readln(n);
until n in [1..19];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=10+random(50);
  write(a[i]:4);
 end;
writeln;
n:=n+1;
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=7;
writeln('Вставка числа 7');
for i:=1 to n do
write(a[i]:4);
end.

Объяснение кода листинга программы

Создаётся переменная a типа array[1..20] of integer, которая представляет собой массив из 20 целых чисел.
Задаются две переменные n и i типа byte. Переменная n используется для чтения размера массива от пользователя, а переменная i используется для итерации по массиву.
С помощью функции randomize и цикла repeat-until запрашивается у пользователя ввести размер массива от 1 до 19.
В цикле for с 1 по n происходит вставка в массив случайных чисел от 10 до 50.
После вставки числа 7 в массив, происходит вывод содержимого массива.
Затем происходит повторное чтение размера массива и увеличение значения переменной n на 1.
Далее, в цикле for с n до 2 происходит перенос всех элементов массива, начиная с индекса n-1, на предыдущий элемент.
Наконец, выводится сообщение о вставке числа 7.
После этого происходит вывод содержимого массива.