Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 1000. опишите на языке или на одном из языков программирования алгоритм, позволяющий найти и вывести сумму элементов массива, не кратных пятнадцати. гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого не делится на пятнадцать.
grimangus
2
25.09.2019 01:10
3
Другие вопросы по теме Информатика
vika8330
21.05.2021 13:38
вероника03
21.05.2021 13:38
556667888
21.05.2021 13:40
Ирина132435
09.10.2019 14:22
Фарида120107
09.10.2019 14:16
каринка195
09.10.2019 14:16
romankulebyaki
13.04.2020 16:29
Полина200618
13.04.2020 16:29
Популярные вопросы
- Сочинение: *как вы понимаете выражение культура речи* нужно ! с р о ч...
1 - Составьте электронные схемы атомовэлементов: li ,na,k,b,al,n,p,f,cl,be,mg,ca,c,si,...
1 - Вклассе 18 девочек, что составляет 60% учащихся класса. сколько учащихся...
2 - Может ли частица иметь заряд в 2 раза больше,в 1,5 раза больше?...
2 - 1) в минутах 3ч; 2 что 15 мин; 7 ч 7 минут. 2) в дециметрах 10 см; 80...
3 - 10 прості речення зі вставними словами...
3 - Вычеркните в числе 181615121 три цифры так, чтобы получившееся число...
3 - Перевести на казахский язык: быть старшим в семье — значит быть ответственным...
1 - 1,37 превращается в обычную дробь? в какую?...
2 - Переодизация новейшей что произошло в эти года 1.1901-1914г 2.1914-1918г...
2
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
i,s:integer;
begin
for i:= 1 to 30 do
a[i]:= Random(1001);
writeln(a);
for i:=1 to 30 do
if a[i] mod 15 <> 0 then s:=s+a[i];
writeln(s)
end.