Viết chương trình khai báo một biến mảng A gồm 100 phần tử nguyên Nhập vào từ bàn phím .gt cho biết các phần tử mảng. in ra mảng vừa nhập theo thứ t

0 bình luận về “Viết chương trình khai báo một biến mảng A gồm 100 phần tử nguyên Nhập vào từ bàn phím .gt cho biết các phần tử mảng. in ra mảng vừa nhập theo thứ t”

1. Program QT;
   Uses crt;
   Var A:Array[1..100] of longint;
         i, n, t, k: 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 k:=i+1 to n do
              If A[i]<A[k] then
                 Begin
                     t:=A[i];
                     A[i]:=A[k];
                     A[k]:=t;
                  End;
         For i:=1 to n do Writeln(A[i],’ ‘);
         Readln

   End.

   Bình luận

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

   Bình luận