viết chương trình nhập 10 số bất kì từ bàn phím rồi in ra kết quả theo thứ tự tăng dần

Question

hoaiphuong · Answer

program BT;

uses crt;

var n,i,j,tg: integer;

Begin

clrscr;

for i:=1 to 10 do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(n);

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(‘Cac so in tang dan: ‘);

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

readln

End.

0 bình luận về “viết chương trình nhập 10 số bất kì từ bàn phím rồi in ra kết quả theo thứ tự tăng dần”