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)

ln4463184

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 42 xem

1 trả lời

Thích Trả lời

Yiangwan

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é! ^_^

Vote (0) Phản hồi (0) 2 năm trước

tranhoang10010110

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

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giúp mình với Để xác định của một chiếc lò, người ta đốt trong lò một cục sắt có khối lượng 0,5kg rồi thả nhanh vào bình chứa 4kg nước có nhiệt độ ban đầu 18 độ C, nhiệt độ cuối cùng trong bình là 28 độ C.Hãy xác định nhiệt độ của lò? Bỏ qua trao đổi nhiệt với vỏ bình,NDR của sắt là 460 j/kg.K của nước là 4200 J/kg.K

Cho tam giác ABC vuông tại A,AB=6cm,BC=10cm. a)Tính AC. b)Vẽ tia phan giác BD của góc ABC (D thuộc AC).trên cạnh BC lấy điểm E sao cho BA=BE.Chứng minh tam giác BAD= tam giác BED.từ đó suy ra DE vuông với BC. c)Chứng minh DA<DC. d)Trên tia đối cảu tia AB lấy điểm F sao cho AF=EC.Chứng minh 3 điểm F,D,E thẳng hàng GIÚP MÌNH CÂU C,D VỚI!! NGÀY MAI MÌNH THI RỒI!! AI NHANH, ĐÚNG MÌNH SẼ VOTE 5* VÀ CẢM ƠN!!!

@Quangcuong347 Đề:Nung 2,48 gam hỗn hợp X gồm Na,Mg,Al trong khí oxi dư,sau phản ứng thu được 4,08 g hỗn hợp chất rắn.Mặt khác,cho 4,96 gam hỗn hợp X trên tác dụng với dung dịch HCl dư thì thấy thoát ra V lít khí(ở đktc) và dung dịch A.Cô cạn dung dịch A thì thu được m gam muối clorua khan.Tính V,m Các bạn nhường 1 slot cho @Quangcuong347 nha

Giúp mình câu 2 và 4 với ạ huhu

dùng đen ta vào bài toán giá trị lớn nhất nhỏ nhất thế nào ạ ai cho em link

trẻ em có những điều quyền gì theo điều 15,16 và 17 trong " luật bảo vệ , chăm sóc và giáo dục trẻ em "

Tính giá trị của biểu thúc 15xmũ2 - 25x + 18 biết 3xmũ2 - 5x + 6 = 2

Vì sao nói Hiệp định Paris đánh dấu bước phát triển mới của Việt Nam? Cần câu trả lời ngắn :<

Cho tam giác ABC . Đường trung trực của cạnh BC trong tam giác ABC cắt cạnh AC tại D . Hãy tìm : a) AD và CD nếu BD = 5 cm ,AC= 8 cm b) AC nếu BD = 11,4 cm ,AD= 3,2 cm

thực chất của quá trình bài tiết nước tiểu là gì

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến