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

Question

Информатика

Вонифатий

3 ноября, 09:50

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

+2

Ответы (1)

Знаешь ответ?

Иуния · Answer 1

Const N=35;

var a: array [1 ... N] of integer;

i, j, s: integer;

begin

s:=0;

for i:=1 to N do readln (a[i]);

for i:=1 to N do

if a[i] mod 30 = 0 then s:=s+a[i];

writeln (s);

end.