Viết chương trình nhập vào một dãy n số bất kỳ - Sắp xếp dãy số đó theo thứ tự giảm dần

daochambinh

2 năm trước

Viết chương trình nhập vào một dãy n số bất kỳ - Sắp xếp dãy số đó theo thứ tự giảm dần - Đưa dãy đã sắp xếp ra màn hình

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

qvinh5102002

program giam_dan;

uses crt;

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

n,i,tam,j:integer;

begin

clrscr;

write('Nhap so luong n: '); readln(n);

for i:=1 to n do

begin

write('So thu ',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;

write('Day sau khi sap xeo giam dan la: ');

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

readln;

end.

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

thanhstrang33

uses crt;

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

n, i, j, tg: integer;

Begin

clrscr;

write('Nhap so phan tu cua day: '); 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

tg:=A[i];

A[i]:=A[j];

A[j]:=tg;

end;

write('Day sau khi sap xep giam dan la: ');

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

readln

End.

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

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

Hòa tan hoàn toàn 14,9g hỗn hợp gồm Fe, Zn trong dung dịch HCl thì thu được 5,6l H2 ở đktc: a) Viết phương trình. b) Tính khối lượng mỗi kim loại trong hỗn hợp ban đầu. c) Tính khối lượng HCl đã phản ứng.

Chấm bài e hộ ạ trừ phần 5 la mã nha Sai thì sửa giúp ạ

Giúp mk với mn ơi Mk đang vâng gấp lắm ạ

Vẽ anime hoặc chibi NL: Yêu cầu admin thêm 1 cách ban mới VD: $\text{BAN IP}$

Ta nghe hè dậy bên lòng câu 1: chép tiếp những câu thơ còn lại của bài câu 2 nêu nội dung chính câu 3 nhận xét cách dùng từ của tác giả và nêu tác dụng câu 4 cho biết nhân đề bài thơ? Em hiểu nhan đề đó như nào

Giúp mk bài này vs ạ Mk đang cần gấp ạ

các bạn vẽ cho mình tranh về đề tài bảo vệ moi trường nha * KHI VẼ NHỚ GHI TÊN VÀO TRANH ĐỂ CHỨNG TỎ KO CHÉP MẠNG *VẼ LUNG TUNG = BCVP *VẼ ĐẸP , NHANH = CTLHN

có hai kho thóc kho 1 nhiều hơn kho 2 là 100 tấn . Nếu chuyển từ kho 1 sang kho 2 60 tấn thì lúc đó số thóc kho 1 bằng 12/13 số thóc kho 2 tính số thóc mỗi kho giải pt

Bảng màu ở đâu?? Ai chỉ tui dùng cái này ik ÒnÓ

Vẽ tranh quả dưa hấu bị thái 1 nửa

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