2 cách nì , cách sau dễ hỉu hơn áh , nhưg lỡ code ùi , post lên lun
Code:
uses crt;
var a:array[1..100] of integer;
f:text;
m,vt,i,n:integer;
begin
clrscr;
assign(f,'bt.inp');
reset(f);
while not eof(f) do
begin
inc(n);
read(f,a[n]);
end;
close(f);
write('nhap m ');
readln(m);
if a[1]>m then
begin
write(m,' ');
for i:=1 to n do
write(a[i],' ');
readln;
exit;
end
else
if a[n]<m then vt:=n+1
else
for i:=1 to n do
if (a[i]<=m) and (a[i+1]>=m) then vt:=i+1;
for i:=vt+1 to n+1 do
a[i]:=a[i-1];
a[vt]:=m;
for i:=1 to n+1 do
write(a[i],' ');
readln;
end.
Code:
uses crt;
var a:array[1..100] of integer;
f:text;
m,vt,i,n:integer;
begin
clrscr;
assign(f,'bt.inp');
reset(f);
while not eof(f) do
begin
inc(n);
read(f,a[n]);
end;
close(f);
write('nhap m ');
readln(m);
if a[1]>m then vt:=0
else if a[n]<m then vt:=n
else
for i:=1 to m do
if (a[i]<=m) and (a[i+1]>=m) then vt:=i;
for i:=1 to vt do
write(a[i],' ');
write(m,' ');
for i:=vt+1 to n do
write(a[i],' ');
readln;
end.
Bookmarks