viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.

0 bình luận về “viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.”

1. program nho_nhat;

   uses crt;

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

         n,i,min:integer;

   begin

         clrscr;

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

         for i:=1 to n do

               begin

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

               end;

         min:=A[1];

         for i:=2 to n do

               if A[i]<min then min:=A[i];

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

         readln;

   end.

   Bình luận

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

   n,i,min:integer;

   begin

         clrscr;

         write(‘Nhap N: ‘); 

         readln(n);

         for i:=1 to n do begin

         write(‘Nhap so thu ‘,i,’: ‘); 

         readln(A[i]);

         end;

         min:=A[1];

         for i:=2 to n do if A[i]<min then min:=A[i];

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

         readln;

   end.

   Bình luận