Bài tâp về mảng 1 chiều ( lớp 11)

[nhock_quậy]

BT2. Lập chương trình: nhập N số thực từ bàn phím và 1 số nguyên dương k với k thuộc [1;N]. chèn 1 số từ bàn phím vào vị trí thứ k của dãy mà không làm đổi trật tự của dãy.

program chen_so;
uses crt;
var a: array[1..100] of real;
i,k,n :byte;
begin
clrscr;
write(‘nhap so phan tu cua mang’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
write(‘chen phan tu thu k =’);
readln(k);
for i:=n+1 downto k do
a[i+1]:=a[i];
write(‘nhap gia tri cho phan tu thu k’);
readln(a[k]);
for i:=1 to n+1 do
write(a[i]:8:2);
readln;
end.


bài 3 tương tự nha các đồng chí, đồng chí nào cần cả bài 3 thì để lại cm