CLS
DIM temp%(31)
RANDOMIZE TIMER

FOR i = 1 TO 31
  temp%(i) = INT(RND * 40) - 20
  PRINT i; ":"; temp%(i); " ";
NEXT

AVG = 0
AVGCOUNT = 0
FOR i = 1 TO 31
  IF temp%(i) > 0 THEN
    AVG = AVG + temp%(i)
    AVGCOUNT = AVGCOUNT + 1
  END IF

NEXT
IF AVGCOUNT > 0 THEN
  AVG = AVG / AVGCOUNT
  PRINT
  PRINT "Average Positive Temperature = "; AVG
ELSE
  PRINT "The tempreature was always below zero"
END IF