почему нету случаности

почему всегда один результат?

Код:


PRINT "ВЫЧИСЛИТЬ СУММУ ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ МАССИВА"
DIM MASIV(100) AS INTEGER
DIM A AS INTEGER, B AS INTEGER, C AS INTEGER
DO
   A+=1
   C=RND*10
   MASIV(A) = RND*10000
   IF C > 5 THEN MASIV(A) =  -MASIV(A)
   IF A = 100 THEN GOTO FF
LOOP

FF:
A=0
DO
   A+=1
  IF MASIV(A)<0 THEN B=B+MASIV(A)
  IF A = 100 THEN GOTO DD
LOOP

DD:
PRINT "СУММА РАВНА ";B
SLEEP


Так и должно быть, в данном примере генерация будет повторяться при каждом новом запуске программы.
Для получения разных сумм тебе необходима подвязка оператора RND к таймеру.
Поставь RANDOMIZE TIMER в начале программы.

да так нормально, спасибо.