Найти среднее арифметическое всех элементов массива — QBasic(Бейсик)

 CLS 
  N = 15 
  DIM M(N) 
  SUMM = 0
  FOR I = 1 TO N 
  M(I) = INT(RND * 100) 
  PRINT I; "-"; M(I) 
  SUMM = SUMM + M(I) 
  NEXT I 
  PRINT "_________" 
  PRINT "SrArefm = "; SUMM/N