Bai 2:
Code:
program sap_xep_3_chu_so;
uses crt;
type mang1=array[1..900] of integer;
var a:mang1;
i,n,k,dva,dvb,t,hca,hcb,hta,htb:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
writeln('So thu ',i,' la: '); readln(a[i]);
end;
for k:=n downto 2 do
for i:=1 to k-1 do
begin
dva:=a[i] mod 10;
dvb:=a[i+1] mod 10;
if dva > dvb then
begin
t:=a[i+1];
a[i+1]:=a[i];
a[i]:=t;
end
else
begin
if dva = dvb then
begin
hca:=(a[i] div 10) mod 10;
hcb:=(a[i+1] div 10) mod 10;
if hca > hcb then
begin
t:=a[i+1];
a[i+1]:=a[i];
a[i]:=t;
end;
end
else if hca = hcb then
begin
hta:=a[i] div 100;
htb:=a[i+1] div 100;
if hta > htb then
begin
t:=a[i+1];
a[i+1]:=a[i];
a[i]:=t;
end;
end;
end;
end;
for i:=1 to n do write(a[i], ' ');
readln
end.
Bookmarks