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)