Viết chương trình nhập vào một mảng các số nguyên. Xếp lại cho đúng thứ tự tăng dần.

0 bình luận về “Viết chương trình nhập vào một mảng các số nguyên. Xếp lại cho đúng thứ tự tăng dần.”

1. program mang;
   uses crt;
   var N: array[1..30000] of integer; 
         n,k,i,j: longint;
   begin clrscr;
      write(‘Nhap n: ‘); Readln(n);
        for i:=1 to n do
           write(‘N[‘,i,’]: ‘); readln(N[i]);
        for i:=1 to n-1 do
          for j:=i+1 to n do
             if N[i]>N[j] then
                begin
                   k:=N[i]; 

                   N[i]:=N[j];

                   N[j]:=k;
                end;

        for i:=1 to n do

          write(N[i],’ ‘);
   readln;
   end.

   Học tốt!

   Bình luận

2. Program HuynhDucNhatDeThuongQuaDiA;
   Uses crt;
   Var A: array[1..100000] of longint; 
       n,tg,i,j: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘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
                                   tg:=A[i];
                                   A[i]:=A[j];
                                   A[j]:=tg;
                           End;
           For i:=1 to n do Write(A[i],’ ‘);
           Readln
   End.

   ——

   Mèo méo meo mèo meo ~

   Bình luận