Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, позволяющий найти и вывести сумму элементов массива, не кратных пятнадцати. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого не делится на пятнадцать.
Answers & Comments
CONST n = 30
DIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
CLS
FOR i = 1 TO n
a(i) = 1000 * RND
PRINT a(i);
NEXT i
s = 0
FOR i = 1 TO n
IF a(i) MOD 15 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT s