viết chương trình Scratch ạ: Nhập 10 số nguyên, sắp xếp dãy số đó theo thứ tự tăng dần rồi nhân vật nói ra dãy số vừa sắp xếp

0 bình luận về “viết chương trình Scratch ạ: Nhập 10 số nguyên, sắp xếp dãy số đó theo thứ tự tăng dần rồi nhân vật nói ra dãy số vừa sắp xếp”

1. uses crt;

   var i,j,t:longint;

         a:array[1..10] of longint;

   begin

   clrscr;

   for i:=1 to 10 do read(f,a[i]);

   for i:=1 to 9 do

     for j:=i+1 to 10 do

       if a[i]>a[j] then

          begin 

             t:=a[i];

             a[i]:=a[j];

             a[j]:=t;

           end;

   for i:=1 to 10 do write(f,a[i],’ ‘);

   readln

   end.

   Bình luận