Дан массив из 10 элементов. Подсчитать сумму элементов, кратных 9

Question

Информатика

Артём

19 апреля, 00:06

Дан массив из 10 элементов. Подсчитать сумму элементов, кратных 9

+5

Ответы (1)

Знаете ответ на вопрос?

Томуня · Answer 1

var a: array [1 ... 10] of integer; c, sum: integer; beginsum:=0; writeln ('введите элементы массива ') ; for c : = 1 to 10 do read (a[c]) ; for c : = 1 to 10 do if (a[c] mod 9) = 0 then sum:=sum+a[c]; writeln ('сумма равна = ', sum) ; end.