Nhập dãy số in ra màn hình số lớn nhất, số nhỏ nhất và sắp xếp dãy số theo thứ tự tăng dần

0 bình luận về “Nhập dãy số in ra màn hình số lớn nhất, số nhỏ nhất và sắp xếp dãy số theo thứ tự tăng dần”

1. Cho mik xin nhất plz 

   

   Bình luận

2. program tang_dan;

   uses crt;

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

         n,i,j,tg,max,min:integer;

   begin

          clrscr;

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

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                 end;

          max:=A[1];  min:=A[1];

          for i:=2 to n do

                 if A[i]>max then max:=A[i]

                        else if A[i]<min then min:=A[i];

          writeln(‘So lon nhat la: ‘,max);

          writeln(‘So nho nhat la: ‘,min);

          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;

          write(‘Day sap xep theo tang dan la: ‘);

          for i:=1 to n do write(A[i],’ ‘);

          readln;

   end.

   Bình luận