'1-100 arasi rasgele sayi uretip histogram cizme en kucuk en buyuk bulma CLS DIM sinif(100) n = 1000 FOR i = 1 TO n u = INT(RND * 100) + 1 sinif(u) = sinif(u) + 1 NEXT i PRINT : PRINT "siniftaki eleman saylar" FOR i = 1 TO 100 PRINT i; sinif(i) NEXT i PRINT INPUT ll FOR i = 1 TO 100 FOR j = 1 TO sinif(i) PRINT "*"; NEXT j PRINT NEXT i enk = sinif(1) yer = 1 ebk = sinif(1) yer1 = 1 FOR i = 1 TO 100 IF sinif(i) <= enk THEN enk = sinif(i) yer = i END IF IF sinif(i) >= ebk THEN ebk = sinif(i) yer1 = i END IF NEXT i PRINT PRINT "yer ve enkuck " PRINT yer, enk PRINT "yer ve enbuyuk " PRINT yer1, ebk