Program Chen;

Uses crt;

Var i,spt, so,vitri: Integer;

A: Array[1..100] Of Integer;

Begin   

 Clrscr;   

 Writeln(' + CHEN MOT SO VAO MANG +');

    Writeln('-------------------------------');     

Write('-Co bao nhieu phan tu-: ');   

  Readln(spt);

    For i:=1 To spt Do    

  Begin    

    Write('-Phan tu A[',i,']= '); Readln(a[i]);  

     End;   

  Writeln; Writeln('--MANG TRUOC KHI CHEN--');   

 For i:=1 To spt Do Write(a[i]: 6); Writeln; 

   Write('-Can che so: ');    

Readln(so); Write('-Vao vi tri: ');

    Readln(vitri);

    For i:=spt+1 Downto Vitri+1 Do    Writeln;  

  a[i]:=a[i-1]; a[vitri]:=so; spt:=spt+ 1;  

  Writeln('MANG SAU KHI CHEN');   

 Readln;    

For i:=1 To spt Do Write(a[i]: 6);

End.

truong00025