Вычислить сумму квадратов всех элементов заданного массива x(N), за исключением элементов, кратных пяти — 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

Вычислить сумму квадратов всех элементов заданного массива x(N), за исключением элементов, кратных пяти — Basic(Бейсик)

Похожие записи/страницы:

Leave a Comment