Chương trình dãy số nguyên sau đó tìm giá trị nhỏ nhất của dãy số đó

0 bình luận về “Chương trình dãy số nguyên sau đó tìm giá trị nhỏ nhất của dãy số đó”

1. uses crt;
   var mang:array[1..250] of integer;min:integer;i,t:byte;
   BEGIN
   clrscr;
   write(‘Nhap t: ‘);readln(t);
   for i:=1 to t do
   begin
   write(‘So thu ‘, i, ‘: ‘);readln(mang[i]);
   if i=1 then min:=mang[i]
   else if mang[i]<min then min:=mang[i];
   end;
   write(‘Gia tri nho nhat: ‘, min);
   readln
   END.

   Bình luận

2. var a:array[1..250] of integer;

         min: integer;

         i, n: byte;

   Begin

        Write(‘n = ‘); readln(n);

        For i:=1 to n do

          Begin

                Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

                If i=1 then min:=a[i]

                Else if a[i]<min then min:=a[i];

          End;

       Write(‘gia tri nho nhat: ‘, min);

       Readln

   End.

   Bình luận