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

Phong Phong Hỏi từ APP VIETJACK

đã hỏi trong Lớp 8 Tin học

· 20:27 16/05/2022

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

4 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.

1 bình luận

Phong Phong · 4 năm trước

Giảm dần mà sai đề một chỗ rùi

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?