Program Hotboy;

Uses crt!

Var A:array[1..100] of integer;

I,n,k : integer;

Begin

Clrscr ;

Write('nhao so phan tu trong day'); readln(n);

For i:=1 do n do

Begin

Write('A[',i,']'); readln(A[i]);

End;

Write('vi tri chen '); readln(k);

For i:=n+1 downto k+1 do

A[i] :=A[i-1];

Write('nhap so can chen'); readln(A[i]);

For i:=1 to n+1 do

Write(A[i]);

Readln

End.

n=int(input())
a=[int(i) for i in input().split()]
k=int(input())
b=int(input())
a.insert(k,b)
print(*a)

$\color{green}{\text{Cần code Java, C/C++, C#, JavaScript thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$