Вычисление произведения элементов массива- QBasic(Бейсик)

CLS 
  N = 10
  DIM M(N) 
  P = 1
  FOR I = 1 TO N 
  M(I) = INT(RND * 100)+1 
  PRINT I; "-"; M(I) 
  P = P * M(I) 
  NEXT I 
  PRINT "_________" 
  PRINT "Proizvedenie = "; P

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

Leave a Comment