Viết chương trình tìm giá trị nhỏ nhất của dãy số nguyên

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

1. Program Mang;
   Uses crt;
   Var A:array[1..10000] of longint;
       i,min: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i’] = ‘); Readln(A[i]);
           End;

           min:=A[1];
           For i:=1 to n do
                   If A[i]<min then min:=A[i];
           Write(‘Gia tri nho nhat la ‘,min);
           Readln
   End.

   Bình luận