Viết chương trình nhập vào một dãy số gồm N số nguyên được nhập vào từ bàn phím. Thực hiện các yêu cầu:
- In dãy số vừa nhập
- Chèn phần tử x vào vị trí k của dãy số (x,k là các số nguyên nhập vào từ bàn phím).
- Xuất dãy số sau khi chèn.
CODE THAM KHẢO:
Program Chen;
Uses crt;
Var i,spt,t, 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 chen so: '); Readln(so);
Write('-Vao vi tri: '); Readln(vitri);
For i:=spt+1 downto vitri+1 Do a[i]:=a[i-1];
a[vitri]:=so;
spt:=spt+1;
Writeln('MANG SAU KHI CHEN');
For i:=1 To spt Do Write(a[i]: 6);
readln;
End.
Đăng nhận xét