В массив А[10] занесены натуральные числа. Найти сумму тех элементов, которые кратны 2. pascal

Question

Информатика

Арся

22 декабря, 19:07

В массив А[10] занесены натуральные числа. Найти сумму тех элементов, которые кратны 2. pascal

+5

Ответы (1)

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

Агапий · Answer 1

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

i, k: integer;

begin

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

K:=0;

for i:=1 to N do

If a[i] div 2=0 then

K:=k+a[i];

Writeln (k) ;

end.

Может быть неправильно написана программа, с андроида неудобно