Вычисление суммы элементов массива- 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 "SUMM = "; SUMM

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment