Viết chương trình nhập vào một mảng số nguyên có n phần tử theo thứ tự giảm dần và số m. Chèn số m vào mảng sao cho mảng vẫn có thứ tự giảm dần. In mảng mới ra màn hình (Sau khi chèn)
Viết chương trình nhập vào một mảng số nguyên có n phần tử theo thứ tự giảm dần và số m. Chèn số m vào mảng sao cho mảng vẫn có thứ tự giảm dần. In mảng mới ra màn hình (Sau khi chèn)
var a:array[1..100] of integer;
n,m,i,j:integer;
begin
write(‘N=”);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
write(‘M=’);readln(m);
write(‘Mang sau khi chen: ‘);
for i:=1 to n do
begin
if (m>=a[i]) and (j=0) then
begin
write(m,’ ‘);
j:=1;
end;
write(a[i],’ ‘);
end;
if j=0 then write(m);
readln;
end.
*Chúc bạn học tốt, đây là cô mình dạy nhé! ^_^
Nhập vào một mảng số nguyên có n phần tử. Sắp xếp mảng tăng dần. Nhập vào số nguyên x; chèn x vào mảng đã sắp xếp sao cho thứ tự mảng vẫn tăng dần}
Var a:array [1..100] Of integer;
k,n,i,tam,x:integer;
Begin
Write(‘Nhap so phan tu n:’);
ReadLn(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’);
ReadLn(a[i]);
End;
For k:=1 to (n-1) do
For i:=1 to (n-1) do
If a[i] > a[i+1] then
Begin
tam:=a[i];
a[i]:=a[i+1];
a[i+1]:=tam;
End;
WriteLn(‘Mang da sap xep:’);
For i:=1 to n do write(a[i],’ ‘);
WriteLn;
Write(‘nhap vao so X :’);
ReadLn(X);
i:=1;
While (x>a[i]) and(i<=n) do i:=i+1;
For k:=n+1 downto i do
a[k]:=a[k-1];
a[i]:=x;
Write(‘Mang da chen X:’);
For i:=1 to n+1 do write(a[i],’ ‘);
ReadLn;
cái này cô mk cho