VXT nhập vào 1 mảng rồi in ra dãy đó sau khi sắp xếp tăng dần

0 bình luận về “VXT nhập vào 1 mảng rồi in ra dãy đó sau khi sắp xếp tăng dần”

1. program sap_xep_tang_dan;
     uses crt;
       var a:array [1..100] of longint;
       var n, d, i, j, t, k: longint;
   begin
    clrscr;
     write (‘nhap so phan tu cua day so: ‘);  readln (n);
     writeln (‘nhap day so: ‘);
     for i:=1 to n do
      begin
       write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);
      end;
     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 (‘day so sau khi sap xep: ‘);
     for i:=1 to n do
      write (a[i],’   ‘);
    readln;
   end.

   

   Bình luận

2. program sxmang;

   uses crt;

   var A:array[1..1000] of integer;

         n,i,j,tg:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu: ‘);   readln(n);

   write(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   for i:=1 to n do

    begin

     write(‘Phan tu thu ‘,i,’: ‘);

     readln(A[i]);

    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;

   writeln(‘Day sau khi sap xep la:’);

   for i:=1 to n do

    write(A[i]:4);

   readln

   end.

   Bình luận