Viết ctr nhập số n. In ra màn hình dãy số vừa nhập, in ra màn hình dãy số theo thứ tự tăng dần.

0 bình luận về “Viết ctr nhập số n. In ra màn hình dãy số vừa nhập, in ra màn hình dãy số theo thứ tự tăng dần.”

1. var a:array[1..32000]of longint;

          n,i,j,t:longint;

   begin

    writeln(‘nhap so n’);readln(N);

    writeln(‘nhap lan luot N phan tu’);

    for i:=1 to n do

     readln(a[i]);

    writeln(‘mang da nhap’);

   for i:=1 to n do

    write(a[i],’ ‘);

   writeln;

    for i:=1 to n-1 do

     for j:=i+1 to n do

      if a[i]>a[j] then begin

       t:=a[i];

       a[i]:=a[j];

       a[j]:=t;

      end;

    writeln(‘mang sau khi sap xep tang dan’);

    for i:=1 to n do 

     write(a[i],’ ‘);

   readln;

   end.

   Bình luận