tìm giá trị lớn nhất nhỏ nhất của một dãy số nguyên a1 a2 a2 a3.. an (nmax= 250)

Uses crt;

Var a:array[1..250] of integer;

      i, n, max, min: integer;

Begin

     Clrscr;

     Write('Nhap n = '); readln(n);

     For i:=1 to n do 

        Begin

             Write('a[',i,']='); 

             Readln(a[i]);

        End;

     max:=a[1];

     min:=a[1];

     For i:=1 to n do if a[i] < min then min:=a[i];

     For i:=1 to n do if a[i] > max then max:=a[i];

     Writeln('Gia tri lon nhat la: ',max);

     Writeln('Gia tri nho nhat la: ',min);

Readln

End.