Dizide En Büyük Ve En Küçük Bulma

REM dizide en Büyük bulma
CLS
INPUT "KAç elemanlı dizi="; N
DIM X(N)
FOR C = 1 TO N
INPUT X(C)
NEXT I
EB = X(1)
FOR C = 1 TO N
IF EB < X(C) THEN EB = X(C)
NEXT C
PRINT "EN BüYüK="; EB

*********************************************************************

REM En küçük bulma
CLS
INPUT "KAç eleman˜="; N
DIM X(N)
FOR C = 1 TO N
INPUT X(C)
NEXT C
EK = X(N)
FOR C = 1 TO N
IF EK > X(C) THEN EK = X(C)
NEXT C
PRINT "EN Küçük="; EK