Найти сумму элементов в одномерном массиве, оканчивающихся на 3 и стоящих на четных местах

Question

Информатика

Пашуня

2 августа, 15:29

Найти сумму элементов в одномерном массиве, оканчивающихся на 3 и стоящих на четных местах

+2

Ответы (1)

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

Васяха · Answer 1

Var

n, sum, i, b:integer;

begin

read (n) ;

sum:=0;

for i:=1 to n do

begin

read (b) ;

if (i mod 2=0) and (b mod 10=3) then sum:=sum+b;

end;

write (sum) ;

end.