viết phương trình tìm phần tử nhỏ thứ ba của dãy cho trước ít nhất có ba phần tử

0 bình luận về “viết phương trình tìm phần tử nhỏ thứ ba của dãy cho trước ít nhất có ba phần tử”

1. Thấy đề bài có vẻ lạ và khó, đánh đố học sinh, nhưng thực ra đây chỉ là cách ra đề mẹo thôi 😀

   Mô tả thuật toán: Giả sử đặt tên dãy là A. Sắp xếp dãy A thành dãy tăng dần, sau đó xuất giá trị của phần tử A[3] là xong ^^

   uses crt;
   var a:array[1..1000] of integer;
       n,i,j,t: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
         t:=a[i];
         a[i]:=a[j];
         a[j]:=t;
      end;
      write(‘Phan tu nho thu 3 cua day la: ‘,a[3]);
      readln
   end.

   Bình luận