Quảng cáo
1 câu trả lời 2435
Program sapXep;
Var M: array[1..10] of integer;
i,j,n: byte;
tam: integer;
Begin
Write('Nhap so phan tu n:');Readln(n);
For i:=1 to n do
Begin Write('M[',i,']='); Readln(M[i]); End;
For i:=1 to n-1 do
For j:=i+1 to n do if M[j] <=M[i] then
Begin Tam:= M[i]; M[i]:=M[j]; M[j]:=tam; End;
Write('Sau khi sap xep: ');
For i:=1 to n do Write(M[i],';');
Readln;
Var M: array[1..10] of integer;
i,j,n: byte;
tam: integer;
Begin
Write('Nhap so phan tu n:');Readln(n);
For i:=1 to n do
Begin Write('M[',i,']='); Readln(M[i]); End;
For i:=1 to n-1 do
For j:=i+1 to n do if M[j] <=M[i] then
Begin Tam:= M[i]; M[i]:=M[j]; M[j]:=tam; End;
Write('Sau khi sap xep: ');
For i:=1 to n do Write(M[i],';');
Readln;
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45316 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34744
-
Đã trả lời bởi chuyên gia
30536
-
Hỏi từ APP VIETJACK27980
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22290
Thành viên hăng hái nhất trong tuần
-
Anh_2k15_Pro
275 điểm
-
♉︎𓍢🎧ＡＮ_Ｍê_ＯＴＰ_Dương _Ｈùng ✧˚.🎀༘⋆✧
245 điểm
-
Tuấn Anh
185 điểm
-
song ngư (。・ω・。)
170 điểm
-
Ben10ultimate
140 điểm
-
haruto bé nhỏ
90 điểm
-
Tiên đề euclid
85 điểm
-
I love otp /ZATA x LAVILLE/
85 điểm
-
𝙽𝚑𝚞 𝙿𝚑𝚞
50 điểm
-
robx_2k11
45 điểm
-
misu
45 điểm
-
`color{red}text{Tôi là AI và có thể mắc sai sót.`
35 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước9693
-
4 năm trước9128
-
4 năm trước7854
-
4 năm trước7964
-
4 năm trước7581
Gửi báo cáo thành công!
