Question

lớp 9a có n bạn học sinh, mỗi bạn được gắn với 1 mã số bất kì trong buổi đồng diễn thể dục n bạn đc xếp thành 1 hàng dọc theo thứ tự từ nhỏ đến lớn của mã số để đội hình toàn trường cân đối thầy giáo chuyển 1 bạn lớp khác vào vị trí trong hàng có mã số là k vào đội hình lớp 9a em hãy giúp thầy giáo xếp bạn có mã số k vào vị trí trong hàng sao cho không làm xáo trộn đội hình đã đc sắp xếp mà vẫn đảm bảo nguyên tắc xếp hàng đã nói trên hãy viết chương trình để thực hiện công việc đó

Answer 1

uses crt;
var a:array[1..100]of integer;
k,n,i,tam,x,t:integer;
begin
clrscr;
write('nhap so ban hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('ma so thu ',i,' la:'); readln(a[i]);
end;
{----------------------sap-day-tang-dan--------------------}
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i]>a[k] then begin
t:=a[i];
a[i]:=a[k];
a[k]:=t;
end;
{-----------------------xu-ly-chen--------------------------}
write('nhap ma so k:'); readln(k);
i:=1;
while(k>a[i]) and (i<=n) do
i:=i+1;
for x:=n+1 downto i do
a[x]:=a[x-1];
a[i]:=k;
writeln('ket qua la:');
for i:=1 to n+1 do write(a[i],' ');
readln;
end.