Phong Phong
Hỏi từ APP VIETJACK
Câu 6. Viết chương trình nhập một dãy số tối đa 100 số, sau đó sắp xếp lại dãy số theo thứ tự giảm dần
Quảng cáo
1 câu trả lời 213
3 năm trước
program (Nhập tên gì ở dây cx đc tùy bạn);;
ues crt;
var A:array [1..1000] of integer;
i,j,n,tg:integer;
begin clrscr;
write('Nhap so phan tu n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',i,': '); readln(A[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
writeln('Day so sap xep theo thu tu tang dan la: ');
for i:=1 to n do
write(A[i]:3);
readln;
end.
Phong Phong
· 3 năm trước
Giảm dần mà sai đề một chỗ rùi
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44796
-
Hỏi từ APP VIETJACK26464
Thành viên hăng hái nhất trong tuần
-
Astraea
390 điểm
-
红玫瑰✿
375 điểm
-
Bánh Kemᰔᩚ
300 điểm
-
🐱 Miu Lani 🐱
205 điểm
-
đka lớp mầm
170 điểm
-
જ⁀➴ღ ɲɦư亗♡
115 điểm
-
Duy Quang
95 điểm
-
quynh nhu lê
85 điểm
-
An mê otp Dương Hùng.
50 điểm
-
anh ba say gẽx 50 điểm
-
Trần Lê Hà Phương 40 điểm
-
kensbienors
40 điểm
-
Kim Anh ( là muzik ) :)
35 điểm
-
Trâm Nguyễn Ngọc Bảo 25 điểm
-
Miu Mập 20 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7569
-
3 năm trước7201
-
3 năm trước6193
-
3 năm trước5950
-
3 năm trước5994
Gửi báo cáo thành công!
