Viết chương trình nhập vào một mảng gồm n số nguyên, sắp sếp theo thứ tự tăng dần và tìm số lớn và bé nhất rồi in ra màn hình kết quả Mod giúp em với

0 bình luận về “Viết chương trình nhập vào một mảng gồm n số nguyên, sắp sếp theo thứ tự tăng dần và tìm số lớn và bé nhất rồi in ra màn hình kết quả Mod giúp em với”

1. uses crt;
   var A:array[1..1000] of integer;
       N,i,j,tam,max,min:integer;
   begin
      clrscr;
      write(‘Nhap N: ‘); readln(N);
      for i:=1 to N do
      begin
         write(‘Nhap phan tu thu ‘,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;
      write(‘Mang sap xep theo thu tu tang dan: ‘);
      for i:=1 to n do write(A[i]:4);
      writeln;
      max:=A[1]; min:=A[1];
      for i:=2 to n do
      begin
         if A[i]>max then max:=A[i];
         if A[i]<min then min:=A[i];
      end;
      write(‘Max la: ‘,max);
      writeln;
      write(‘Min la: ‘,min);
      readln
   end.

   Bình luận

2. Program bai_tap;

   Uses crt;

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

         i, n, j, t, max, min : 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;

   max:=A[1];

   For i:=2 to n do

   If max < A[i] then max:= A[i];

   min:= A[1];

   For i:=2 to n do 
   If min > A[i] then min:= A[i];

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

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

   Writeln (‘so lon nhat la:’, max);

   Writeln (‘so be nhat la:’, min);

   Readln
   End.

   Bình luận