Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Ngọc Hà

Nhập một mảng số nguyên n phần tử. Sx mảng đó theo thứ tự tăng dần. Nhập vào 1 số k. Chèn số k vào mảng sao cho mảng đó vẫn giữ nguyên thứ tự tăng dần.

HELP ME!!!

no ba la
11 tháng 11 2018 lúc 21:26

program baicuaban;

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;
End.

CHÚC BẠN HỌC TỐT.sai hãy liên hệ với mình, đúng tick cho mình nha

Nguyễn Huy Hoàng Sơn
12 tháng 2 2020 lúc 21:38

program baicuaban;

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;
End.

Khách vãng lai đã xóa
Nguyễn Thị Ngọc Hà
11 tháng 11 2018 lúc 21:12

Mik cần gấp vào sáng mai, giúp mik vs hu hu khocroikhocroikhocroi


Các câu hỏi tương tự
Ngọc Khánh
Xem chi tiết
Nguyễn Thị Tuyết
Xem chi tiết
Hưng Phan Đăng
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
lục thị thu hằng
Xem chi tiết
duyy
Xem chi tiết
hoho209
Xem chi tiết
Phạm bình hữu đan
Xem chi tiết
LMHT_Tốc_chiến
Xem chi tiết