Вычисление суммы элементов массива- QBasic(Бейсик)

1
2
3
4
5
6
7
8
9
10
11
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