Viết chương trình nhập vào một dãy số có N phân tử được nhập từ bàn phím. Hãy sắp xếp dãy số giảm dần. Xuất ra dãy số trước và sau khi sắp xếp?

nguyenthihang.hungvuong

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

pdanh1832

Var n, i, j: word;

a:array[1..500] of integer;

t: integer;

begin

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

for i:=1 to n do

begin

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

end;

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

Writeln(a[n]);

For i:=1 to n-1 do

For j:=i+1 to n do if a[j]>a[i] then

Begin

t:=a[j]; a[j]:=a[i]; a[i]:=t;

End;

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

readln

end.

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

900447987153971

Uses Crt;
Var a:array[1..1000] of integer;
i,n,j,gd:integer;
Begin
Clrscr;
Write('Nhap so ptu n= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
Write('*Phan biet: ');
Writeln('+) Day so truoc khi xep theo thu tu giam dan la : ');
For i:=1 to n do
Begin
Write(a[i]:3);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then
Begin
gd:=a[i];
a[i]:=a[j];
a[j]:=gd;
End;
Writeln;
Writeln('+) Day so sau khi sap xep theo thu tu giam dan la: ');
For i:= 1 to n do
Begin
Write(a[i]:3);
End;
Readln
End.
* Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Cảm ơn nhiều <33
* Có gì thì comment bên dưới nhá!

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

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

Trả lời chi tiết Nguyên nhân thắng lợi của cuộc kháng chiến chống Mĩ (1954-1975)? Theo em, nguyên nhân nào là quan trọng nhất? Vì sao

Câu 1: Làm cách nào để phân biệt ba lớp thú: ăn sâu bọ, gặm nhấm và bộ ăn thịt? Trả lời và phân biệt. Câu 2: Trình bày các đặc điểm của dơi thích nghi với đời sống bay và cá voi thích nghi với đời sống ở trong nước

Phân tích chủ trương kế hoạch giải phóng hoàn toàn miền Nam của Đảng ta. Chị tiết giúp mình

cho pt x^2-2m-1)x+m^2-3m=0 tìm m để 2 nghiệm x1 x2 thoải mãn x1^2+x2^2+4x1x2=16

Giúp em với mn trả lời ngắn gọn thôi cũng được

Câu 1: Ở động vật có xương sống có các hình thúc sinh sản nào? Phân biệt các hình thức sinh sản đó. Câu 2: Minh hoạ về những vai trò của lớp chim và lớp bò sát

C1 : '' Mặc kệ '' là câu đặc biệt hay câu rút gọn C2: Chuyển câu sau thành câu bị động - Rồi ngồi xuống xếp bài lại, ngoay gối dựa sang bên tay phải nghiêng mình bảo thầy đề lại

Câu 1:Viết chương trình tính tổng các số chẵn từ 1->n.Với n được nhập từ bàn phím. Câu 2:Viết chương trình tính tổng S=1+1/2+1/3+1/4+...+1/n.Với n được nhập từ bàn phím. Câu 3:Viết chương trình tính tổng các số lẻ từ 1->n.Với n đc nhập từ bàn phím. Câu 4:Viết chương trình tính tổng S=1+3+5+...+101. Mik đang cần gấp.Tks❤

Người ta tiến hành nuôi cấy một loài vi khuẩn ở điều kiện thích hợp. Trong bình nuôi cấy ban đầu có 10 mũ 2 tế bào, sau 10 giờ nuôi cấy số lượng tế bào là 102400 tế bào. Xác định thời gian thế hệ của vi khuẩn trên

Giúp em với mn bài này thứ 5 em thi rồi

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