tìm số nhỏ nhất của dãy số,viết thuật toán

0 bình luận về “tìm số nhỏ nhất của dãy số,viết thuật toán”

1. *Xác định thuật toán:

   Input: Số n được nhập;

   Output:Số nhỏ nhất trong dãy n số đó;

   *Thuật toán:

   B1: Nếu a> n thì in kết quả ra màn hình “n nhỏ hơn a”.

   B2: nếu a< n thì in kết quả ra màn hình ” a nhỏ hơn n”,

   ngược lại in ra màn hình ” Hai so  bang nhau”.

   B3: kết thúc.

   *Viết chương trình:
   Uses crt;
   Var i,n,min: integer;
   a: array[1..100] of integer;
   Begin
   Clrscr;
   Writeln(‘ Nhap do dai cua day so, n= ‘); Readln(n);
   Writeln(‘Nhap cac phan tu cua day so: ‘);
   For i:= 1 to n do
   Begin
   Writeln(‘a[‘, i, ‘]= ‘);
   Readln(a[i]);
   End;
   min:= a[1];
   For i:= 2 to n do
   Begin
   If min > a[i] then min:= a[i];
   End;
   Writeln(‘So nho nhat la: ‘, min);
   Readln;
   End.
   *Nếu không sử dụng mảng thì nói với mình để mình sửa lại nhé! Nhớ tick và chọn làm ctr/l hay nhất ạ! Thanks! 😀

   Bình luận