Дан одномерный массив из N элементов. Посчитать произведение элементов, кратных трем
Категория: Basic
2011-11-28 16:19:30
code: #basic
INPUT "vvedite kol-vo elementov ",n DIM a(n) RANDOMIZE TIMER PRINT"massiv" FOR i=1 TO n a(i)=INT(RND*20)+1 PRINT a(i);" "; NEXT p=1 FOR i=1 TO n IF a(i) MOD 3=0 THEN p=p*a(i) NEXT PRINT PRINT"proizvedenie=";p
автор: кот Бегемот
Поделиться: