Viết chương trình nhập vào một mảng gồm 1 số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình Các bạn giúp mình với☹️

0 bình luận về “Viết chương trình nhập vào một mảng gồm 1 số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình Các bạn giúp mình với☹️”

1. Program bai_tap;

   Uses crt;

   Var A: array [1..150] of integer;

         i,n, j,t: integer;

   Begin

   Write (‘nhap n=’);

   Readln (n);

   For i:=1 to n do 

   begin 

   Write (‘nhap phan tu thu ‘,i,’=’);

   Readln (A[i]);

   end;

   For j:=n downto 2 do

   For i:=1 to j-1 do

   If A[i]> A[i+1] then

   begin

   t:= A[i];

   A[i]:= A[i+1];

   A[i+1]:= t;

   end;

   Writeln (‘Day so duoc sap xep la:’);

   For i:=1 to n do Write (A[i]:6);

   Readln

   End.

   Trả lời

2. Uses Crt;
   Type Mang = ARRAY[1..50] Of Integer;
   Var A:Mang;
   N,i,j,Tam:Integer;
   Begin
   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
   Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
   End;
   Writeln(‘Ket qua sau khi sap xep:’);
   For i:=1 To N Do Write(A[i]:5);
   Readln;
   End.

   Trả lời