Вычислить сумму квадратов всех элементов заданного массива x(N), за исключением элементов, кратных пяти
Категория: Basic
2012-02-09 16:27:29
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) PRINT a(i); NEXT PRINT FOR i=1 TO n IF a(i) MOD 5<>0 THEN s=s+a(i)^2 NEXT PRINT"summa kvadratov=";s
автор: кот Бегемот
Поделиться: