Nhập vào 1 mảng số nguyên,sắp xếp mảng theo trình tự tăng dần,giảm dần. Giúp em với,mai kiểm tra rồi

0 bình luận về “Nhập vào 1 mảng số nguyên,sắp xếp mảng theo trình tự tăng dần,giảm dần. Giúp em với,mai kiểm tra rồi”

1. Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,j,tg:integer;
   Begin
   Clrscr;
   Write(‘Nhap so ptu N= ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap so thu 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;
   Writeln;
   Writeln(‘ Day so sau khi sap xep theo thu tu tang dan la: ‘);
   For i:= 1 to n do Write(a[i]:5);
   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;
   Writeln(‘ Day so sau khi sap xep theo thu tu giam dan la: ‘);
   For i:= 1 to n do Write(a[i]:5);
   Readln
   End.

   Bình luận

2. –Tăng dần

   Program Sap_xep_tang_dan;

   Uses crt;

   Var

   i, N, j, c: integer;

   A: array[1..50] of integer;

   Begin

   Clrscr;

   Writeln(‘Nhap do dai cua day:’); Readln(N);

   For i:=1 to N do

   Begin

   Writeln(‘Nhap cac phan tu trong day 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

   c:=A[i];

   A[i]:=A[j];

   A[j]:=c;

   End;

   Writeln(‘Mang sau khi sap xep:’);

   For i:=1 to N do

   Writeln(A[i]:5);

   Readln;

   End.

   –Giảm dần

   Program Sap_xep_giam_dan;

   Uses crt;

   Var

   i, N, j, c: integer;

   A: array[1..50] of integer;

   Begin

   Clrscr;

   Writeln(‘Nhap do dai cua day:’); Readln(N);

   For i:=1 to N do

   Begin

   Writeln(‘Nhap cac phan tu trong day 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

   c:=A[i];

   A[i]:=A[j];

   A[j]:=c;

   End;

   Writeln(‘Mang sau khi sap xep:’);

   For i:=1 to N do

   Writeln(A[i]:5);

   Readln;

   End.

   Bình luận