Question

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

Answer 1

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.