Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, позволяющий найти и вывести сумму элементов массива, не кратных пятнадцати. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого не делится на пятнадцать.

var a:array [1..30] of integer;i,s:integer;beginfor i:= 1 to 30 doa[i]:= Random(1001);writeln(a);for i:=1 to 30 doif a[i] mod 15 <> 0 then s:=s+a[i];writeln(s)end.