Question

Добавить после первого элемента списка заданное количество элементов. Pascal ABC

Answer 1

const

N = 10;

Elem = 666;

var

a: array [1..N+1] of integer;

K: integer;

begin

for var i:=1 to N do

a[i] := Random(100);

writeln('Элементы массива a: ');

for var i:=1 to N do

write(a[i],' ');

writeln;

K := Random(1,N);

for var i:=N downto K do

a[i+1] := a[i];

a[K] := 666;

writeln('После вставки элемента ',Elem,' в позицию ',K,':');

for var i:=1 to N+1 do

write(a[i],' ');

writel