Data dan Girilen Sayilari Buyukten Kucuge Dogru Sıralayan Program

CLS : OPTION BASE 1: DATA  1,2,3,4,5,6,7,8,9,10
DIM A(10)
FOR X = 1 TO 10
PRINT : READ A(X)
NEXT
FOR X = 1 TO 10 - 1
FOR y = X + 1 TO 10
IF A(y) > A(X) THEN SWAP A(y), A(X)
NEXT y, X
FOR X = 1 TO 10
PRINT "A("; X; ")="; A(X)
NEXT
PRINT "EN KüçüK SAYI = "; A(1); "EN BüYüK SAYI = "; A(10)

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