Смотрели в сторону метода `insert`? Песочница:
>>> a = ["a", "b", "c", "d", "e", "f"]>>> a['a', 'b', 'c', 'd', 'e', 'f']>>> a.insert(3, "c")>>> a['a', 'b', 'c', 'c', 'd', 'e', 'f']
Те у тебя будет имямасива.insert(k, c)
Ответ 4 это кратчайший путь от пункта А до пункта Е
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
Поблагодарил своих родителей