Bài 4. Sử dụng biến trong chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Creeper Boy - MC Gamer

1. Nhập số nguyên dương N và dãy gồm N số nguyên:A1,A2,….,An (N<=200,ai<=300). In ra màn hình dãy số trên đc sắp xếp tăng dần

2. Giống bài trên nhưng sắp xếp giảm dần

Cả 2 bài dùng THUẬT TOÁN SẮP XẾP DÃY SỐ TĂNG DẦN nha mọi người UwU

Nguyễn Lê Phước Thịnh
23 tháng 6 2020 lúc 16:07

Bài 1:

uses crt;

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

i,n,tam,j:integer;

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

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day so sau khi duoc sap xep tang dan la: ');

for i:=1 to n do

write(a[i]:4);

readln;

end.

Bài 2:

uses crt;

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

i,n,tam,j:integer;

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

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day so sau khi duoc sap xep giam dan la: ');

for i:=1 to n do

write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
le thi minh phuong
Xem chi tiết
quỳnh anh
Xem chi tiết
Nguyễn minh quân
Xem chi tiết
Nguyen Hong Nhung
Xem chi tiết
Huỳnh Thanh Trúc
Xem chi tiết
Dang Hien
Xem chi tiết
La Thị Thu Phượng
Xem chi tiết
Nguyễn Mỹ Uyên
Xem chi tiết
Nguyễn Huỳnh Hồng Yến
Xem chi tiết