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 minh nguyệt

Viết chương trình nhập vào một dãy các số nguyên và sắp xếp theo thứ tự giảm dần,in kết quả ra màn hình

Minh Lệ
1 tháng 5 2019 lúc 8:39

Lời giải :

program hotrotinhoc ;

var a : array[1..32000] of integer ;

i,n,j,tg : integer ;

begin

write('Nhap do dai cua day so :'); readln(n);

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:= 1 to n do

for j:= 1 to n-1 do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

write('Mang sau khi sap xep la : ');

for i:= 1 to n do write(a[i],' ');

readln

end.

Thịnh Phạm
1 tháng 5 2019 lúc 9:01
Program Day_So_Giam_Dan; Uses Crt; Var n,i,j,t:integer; a:array[1..100] of integer; Begin Clrscr; Writeln(‘SAP XEP DAY SO:’); Write(‘Nhap so phan tu cua day n = ‘); Readln(n); For i:=1 to n do Begin Write(‘a[‘,i,’]= ‘); Readln(a[i]); End; {sap xep day so giam dan} For i:=1 to n-1 do For j:=i+1 to n do If a[i]<a[j] then Begin t:=a[i]; a[i]:=a[j]; a[j]:=t; End; Writeln(' Day sau khi sap xep giam dan la:'); For i:=1 to n do Write(a[i]); Readln; End.

Các câu hỏi tương tự
trần Thị Mỹ Duyên
Xem chi tiết
Lê Quang Ngọc
Xem chi tiết
Ne Su
Xem chi tiết
trần Thị Mỹ Duyên
Xem chi tiết
Eriken
Xem chi tiết
nguyễn minh nguyệt
Xem chi tiết
Vỹ Thiên
Xem chi tiết
khanh nguyen
Xem chi tiết
nguyễn minh nguyệt
Xem chi tiết