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.