Viết chương trình nhập vào n số nguyên. Nhập vào k ≤ n, số m. Viết chương trình chèn số m vào vị trí k của dãy sau đó sắp xếp dãy mới theo thứ tự giảm dần.
Viết chương trình nhập vào n số nguyên. Nhập vào k ≤ n, số m. Viết chương trình chèn số m vào vị trí k của dãy sau đó sắp xếp dãy mới theo thứ tự giảm dần.
program ct;
uses crt;
type mang=array [1..1000] of longint;
var A:mang;
i,j,n,k,m,x:longint;
begin clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu: ‘,i,’: ‘); readln(A[i]);
end;
write(‘Nhap so m va vi tri k: ‘); readln(m,k);
for i:=n+1 downto k+1 do
A[i]:=A[i-1];
A[k]:=m;
n:=n+1;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]<A[j] then
begin
x:=a[j];
A[j]:=A[i];
A[i]:=x;
end;
writeln(‘Mang sau khi chen va sap xep la: ‘);
for i:=1 to n do
write(A[i]:3);
readln;
end.
Học tốt!
program oken;
uses crt;
type mang = array [1..10000000] of longint;
var a: mang;
n,i,j,k,m,tam: longint;
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(‘Mang vua nhap:’);
for i:=1 to n do
write(‘ ‘,a[i]);
writeln; write(‘Nhap so m: ‘); readln(m);
write(‘Nhap vi tri: ‘); readln(k);
for i:=n+1 downto k+1 do
a[i]:=a[i-1];
a[k]:=m;
n:=n+1;
write(‘Mang sau khi them: ‘);
for i:=1 to n do
write(‘ ‘,a[i]); writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[j];
a[j]:=a[i];
a[i]:=tam;
end;
write(‘Mang sau khi sap xep: ‘);
for i:=1 to n do
write(a[i],’ ‘);
readln;
end.