Sắp xếp 3 số nguyên theo thứ tự tăng dần

[lehang_gb1]

Mình viết chương trình như sau, còn cách viết nào ngắn gọn, dễ hiểu nữa ko, chỉ sắp xếp 3 số thôi không dùng giải thuật sắp xếp cho dãy số.


program Bai1;
uses crt;
var a,b,c,tg:Integer;
Begin
clrscr;
write('vao 3 so a,b,c:'); Readln(a,b,c);
if b<a then
begin tg:=a; a:=b; b:=tg; end;
if c<b then begin tg:=b; b:=c; c:=tg;end;
if b<a then begin tg:=a; a:=b; b:=tg; end;
write(a:9; b:9; c:9);
Readln
End.

[hang_vt]

type code sai ùi kìa bạn :)


program Bai1;
uses crt;
var a,b,c,tg:Integer;
Begin
clrscr;
write('vao 3 so a,b,c:'); Readln(a,b,c);
if b<a then
begin tg:=a; a:=b; b:=tg; emd;
if c<b then begin tg:=b; b:=c; c:=tg;end;
if b<a then begin tg:=a; a:=b; b:=tg; end;
write(a:9 ; b:9 ; c:9);
Readln
End.


[=========> Bổ sung bài viết <=========]

mình có cách khác , nhưng dài hơn

[cuongpt1]

sai toi roi con ji chu emd ah

[quangtq]

for i:=1 to 2 do for j:=2 to 3 do if a[i]>a[j] then
begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end;
for i:=1 to 3 do write(a[i]:5);

Array muôn năm :))