Viết chương trình nhập vào một dãy số có N phân tử được nhập từ bàn phím. Hãy sắp xếp dãy số giảm dần. Xuất ra dãy số trước và sau khi sắp xếp?

Viết chương trình nhập vào một dãy số có N phân tử được nhập từ bàn phím. Hãy sắp xếp dãy số giảm dần. Xuất ra dãy số trước và sau khi sắp xếp?

0 bình luận về “Viết chương trình nhập vào một dãy số có N phân tử được nhập từ bàn phím. Hãy sắp xếp dãy số giảm dần. Xuất ra dãy số trước và sau khi sắp xếp?”

  1. Var n, i, j: word;

           a:array[1..500] of integer;

           t: integer;

    begin

      write(‘n = ‘); readln(n);

      for i:=1 to n do

          begin

             write(‘a[‘, i, ‘] = ‘); readln(a[i]);

          end; 

      For i:=1 to n-1 do write(a[i], ‘ ‘);

      Writeln(a[n]);

      For i:=1 to n-1 do

          For j:=i+1 to n do if a[j]>a[i] then

             Begin

                  t:=a[j]; a[j]:=a[i]; a[i]:=t;

             End;

      For i:=1 to n do write(a[i], ‘ ‘);

      readln

    end.

     

     

    Bình luận
  2. Uses Crt;
    Var a:array[1..1000] of integer;
    i,n,j,gd:integer;
    Begin
    Clrscr;
    Write(‘Nhap so ptu n= ‘); Readln(n);
    For i:=1 to n do
    Begin
    Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
    End;
    Write(‘*Phan biet: ‘);
    Writeln(‘+) Day so truoc khi xep theo thu tu giam dan la : ‘);
    For i:=1 to n do
    Begin
    Write(a[i]:3);
    End;
    For i:=1 to n-1 do
    For j:=i+1 to n do
    If a[i]<a[j] then
    Begin
    gd:=a[i];
    a[i]:=a[j];
    a[j]:=gd;
    End;
    Writeln;
    Writeln(‘+) Day so sau khi sap xep theo thu tu giam dan la: ‘);
    For i:= 1 to n do
    Begin
    Write(a[i]:3);
    End;
    Readln
    End.
    * Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Cảm ơn nhiều <33
    * Có gì thì comment bên dưới nhá!

    Bình luận

Viết một bình luận