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)

0 bình luận về “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)”

1. 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.

   Bình luận