viết chương trình sắp xếp dãy A gồm N các số nguyên thành dãy không giảm ( Trong đó có sử dụng chương trình con để hoán đổi vị trí của hai số) Mọi người giúp em với. Em cần gấp trong chiều nay ạ. Cảm ơn mng

hoangthienduong333

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

nvm262002

program khong_giam;

uses crt;

var A:array[1..10000] of integer;

n,i,j:integer;

{---CT-con---}

procedure hd(var x,y:integer);

var tg:integer;

begin

tg:=x;

x:=y;

y:=tg;

end;

{---CT-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 hd(A[i],A[j]);

write('Day khong giam la: ');

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

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

hanulove

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

chứng minh đa thức sau không có nghiệm A=x^12-x^9+x^8-x^7+x^6-x^3+1 giúp mik với ạ

Công thức hóa học của muối ăn là gì ạ

Câu 1: Điền cho Đ vào ý em cho là đùng và S em cho là sai vào ô trống cho các câu sau: A. Hồ Trị An là hồ nhân tạo lớn ở nước ta B. Hồ Tây còn có tên gọi khác là hồ Móng ngựa C. Hồ nước mặn thường có ở những nơi gần biển D. Hồ Ba Bể là hồ nhân tạo lớn nhất nước ta Câu 2: Đặc trưng cơ bản nhất của đất là gì? Nói con người có thể nâng cao hoặc giảm độ phì của đất đúng hay sai? Em hãy lấy ví dụ chứng minh Câu 3: Nước biển và đại dương có mấy hình thức vận động ? Nêu nguyên nhân sinh ra các hiện tượng đó. Mong ccs bạn giúp mình vs ạ thank you trc

Công Nghệ dễ á nhưng lười tìm sách help me -.-

Trong logo muốn chú rùa đang tiến về phía trước quay sang phải em gõ lệnh gì ? Giúp em với

Vẽ đậu mầm NL:Ai ghét t dơ tay nào=))

Giúp với ạ!! Ba thành phố A, B, C ở 3 địa điểm là 3 đỉnh của một tam giác đều, biết rằng AB = 30 km. Người ta muốn xây dựng một đài truyền hình tại vị trí cách đều ba thành phố A, B, C. Khoảng cách từ đài truyền hình tới thành phố A là * a) 15 √3 km b) 10 √3 km c) 15km d) 10km

cho đtr "Chị kéo luôn tay tôi ....quần áo đầy bụi " 2 đtr trên giúp e hiểu đc j về các nv ?theo e trg hc chiến tranh điều j đã khiến các nv vượt qua để sống yêu đờ và ht tốt nv 3vt 1 đv t-p-h có độ dài khoảng 10 câu lm rõ tính chất công việc và tinh thần trách nhiệm của các nv trg tp.trg đv có sd câu cảm thán và tp phụ chú

Umh vẽ lá cờ đỏ sao vàng của Việt Nam đy Chúc mừng sn Bác Hồ tiện thể ăn mừng 1k4 câu trả lời :3 👉👈

Làm hộ mình í b bài rút gọn vơi ạ ❤️

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến