Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình. ( dùng mảng và kiến thức lớp 8 )

giang8bpbc

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 77 xem

1 trả lời

Thích Trả lời

bocauduathu2000vn

program mang;

uses crt;

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

n,i,j,tg: integer;

Begin

write('Nhap so phan tu cua mang: '); 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('Mang sau khi sap xep tang dan: ');

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

readln

End.

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

lenhung512

uses crt;
var n,i,j,t:longint; a:array[1..100000]of longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(A[i]);
end;
for i:=1 to n do
for j:=1 to n do
if a[i]<a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=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

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

Mong các anh chị trả lời hết hộ e bài 1 ạ tối e phải nộp bài r

ai làm nhanh hộ mình bài này với ạ Mình sẽ đánh giá 5 sao

So sánh các khu vực địa hình của nước ta

Đường cao của 1tam giác chia bc thanh 2 doan thảng có độ dài 25 cm và 36cm .tínhchu vi và diẹn tích cuat tam vuông đó

giup e voi a_________________________

Mọi ngươid giúp e với ạ em đang cần gấp (em cảm ơn)

Nhanh nha , mk đang cần gấp !!!!!😭😭😭😭😭😭😭😭😭😭😭

Làm giúp e chấm 5 sao 2 câu thôi

cho tam giác ABC vuông cân tại A. Trên nửa mặt phẳng bờ BC không chứa điểm A lấy D sao cho góc BDC = 90 độ, AM vuông góc với BC. Chứng minh DA là tia phân giác của góc BDC

Chuyên mục tuyển TV nhóm " Tambiethoidap " Đây ạ! Tên hơi khiếm nhị một tý tại thằng em tôi đặt<-_-> AI vô không ạ Nhóm mới lập!!! Y/C: 5 câu 1 ngày Vẽ chipi cute

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