Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hồng Đức

Sắp xếp chương trình A gồm N các số nguyên thành dãy không giảm( trong đó sử dụng chương trình con để hoán đổi vị trí 2 số)

Nguyễn Lê Phước Thịnh
17 tháng 5 2021 lúc 9:39

uses crt;

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

i,n,tam,j:integer;

{---------------chuong-trinh-con----------------------}

procedure hoandoi(x,y:integer);

var tam:integer;

begin

tam:=x;

x:=y;

y:=tam;

end;

{--------------------chuong-trinh-chinh---------------------------}

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

hoandoi(a[i],a[j]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
Thái Thị Thúy	An
Xem chi tiết
khai nguyen
Xem chi tiết
đào thuý kiều
Xem chi tiết
hoquanghieu
Xem chi tiết
Trần Nguyễn Huỳnh
Xem chi tiết
Huyền Diệu Nguyễn
Xem chi tiết
hoàng phúc nguyễn
Xem chi tiết
Thị Huyền Nguyễn
Xem chi tiết
TÌNH ĐIÊN DẠI
Xem chi tiết