Viết chương trình cho phép nhập một dãy gồm n số nguyên. Nhập thêm một số và chèn thêm vào dãy sau phần tử k.
1 câu trả lời
uses crt;
var M: array[1..100] of integer; i,n,k:integer;
begin
clrscr;
write('Nhap so luong phan tu: ');readln(n);
for i:=1 to n do
begin
write('Nhap gia tri cho phan tu thu ',i,': ');
readln(M[i]);
end;
write('Nhap vi tri chen: ');
readln(k);
for i:=n+1 downto k+1 do M[i]:=M[i-1];
write('Nhap so can chen: ');
readln(M[k]);
write('Day so sau khi chen la: ');
for i:=1 to n do write(M[i],', ');
write(M[n+1],'. ');
readln
end.
Câu hỏi trong lớp
Xem thêm
