Viết ctr con tìm số nhỏ hơn trong hai số a ,b .Áp dụng ctr con đó để tìm số nhỏ nhất của n số được nhập vào từ bàn phím .mọi người giúp mik vs ????

0 bình luận về “Viết ctr con tìm số nhỏ hơn trong hai số a ,b .Áp dụng ctr con đó để tìm số nhỏ nhất của n số được nhập vào từ bàn phím .mọi người giúp mik vs ????”

1. program nho_nhat;

   uses crt;

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

         n,i,m:integer;

   {——chuong-trinh-con——-}

   function min(x,y:integer):integer;

   begin

          if x<y then min:=x else min:=y;

   end;

   {——chuong-trinh-chinh——}

   BEGIN

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          for i:=1 to n do

                 begin

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

                 end;

          m:=A[1];

          for i:=2 to n do

                 m:=min(m,A[i]);

          write(‘So nho nhat la: ‘,m);

          readln;

   end.

   Bình luận

2. uses crt;
   var  
         a,b: array[1..10000] of integer;
         n,i: integer;  
        
   function min(a,b: integer):integer;
   begin
         If a > b then min:=b
            else min:=a;
   end;

   begin
          clrscr;
         
          write(‘Nhap n= ‘);readln(n);
         
          for i:=1 to n do
                begin
                   writeln(‘- CAP SO THU ‘,i,‘ -‘);
                   write(‘Nhap so thu 1: ‘);readln(a[i]);
                   write(‘Nhap so thu 2: ‘);readln(b[i]);
                end;
               
          for i:=1 to n do
         
      writeln(‘Min cua cap so thu ‘,i,‘ la: ‘,min(a[i],b[i]));
            
     readln;
   end.

   Bình luận