Question

Pascal Ввести одномерный массив, состоящий из п элементов. Вставьте в массив число 100 после пятого элемента.

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Введи элементы массива:', n);

 a := a?[:5] + Arr(100) + a?[5:];

 a.Print

end.

Answer 2

Для решения этой задачи в Pascal можно использовать следующий код:

```
const
n = 10; // количество элементов в массиве
var
arr: array[1..n] of integer;
i: integer;
begin
// Инициализация массива
for i := 1 to n do
arr[i] := i;

// Вставка числа 100 после пятого элемента
for i := 6 to n do
arr[i+1] := arr[i];
arr[6] := 100;

// Вывод результата
for i := 1 to n do
writeln(arr[i]);
end.
```

В этом коде мы сначала инициализируем массив `arr` из 10 элементов значениями от 1 до 10. Затем мы используем цикл `for` для сдвига элементов массива начиная с шестого элемента. То есть, мы перезаписываем значение элемента `arr[i]` в `arr[i+1]`, начиная с шестого элемента и до последнего. После этого мы присваиваем пятому элементу значение 100. Таким образом, число 100 будет вставлено после пятого элемента массива.

Затем мы выводим значения массива на экран, чтобы убедиться, что число 100 было успешно вставлено.