Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Nguyễn Huỳnh
Viết chương trình nhập vào một dãy số gồm n phần tử a1,a2,..an.In ra dãy số trước vào sâu khi sắp xếp dãy số không giảm
Bùi Anh Tuấn
7 tháng 3 2021 lúc 21:21

Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 22:07

uses crt;

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

i,n,j,tam:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',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

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
Đỗ Duy
Xem chi tiết
Đỗ Duy
Xem chi tiết
ĐOÀN ĐỨC ANH
Xem chi tiết
Trần Nguyễn Huỳnh
Xem chi tiết
Trần Văn Việt Hùng
Xem chi tiết
Nguyễn Anh Quân
Xem chi tiết
Huyền Diệu Nguyễn
Xem chi tiết
Bé Kunz
Xem chi tiết
Đinh Duy Thuần
Xem chi tiết