1 2 3 4 5 6 7 8 9 10 11 | 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 ( Скачать )