Tin học Nhập vào một mảng,chèn thêm một số K và in ra vị trí của số vừa chèn 11/07/2021 By Maya Nhập vào một mảng,chèn thêm một số K và in ra vị trí của số vừa chèn
uses crt;var a:array[1..10000] of longint; n,i,k,l:longint;begin clrscr; write(‘Nhap so luong phan tu: ‘); readln(n); for i:=1 to n do begin write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]); end; write(‘Day so vua nhap: ‘); for i:=1 to n do write(a[i],’ ‘); writeln; write(‘Nhap so k: ‘); readln(k); write(‘Nhap vi tri so ‘,k,’: ‘); readln(l); for i:=n+1 downto l+1 do a[i]:=a[i-1]; a[l]:=k; write(‘Day so sau khi them gia tri ‘,k,’ vao: ‘); for i:=1 to n+1 do write(a[i],’ ‘); readln;end. Trả lời