Написать программу, подсчитывающую сумму нечетных положительных элементов в одномерном массиве

Question

Информатика

Геня

28 марта, 12:20

Написать программу, подсчитывающую сумму нечетных положительных элементов в одномерном массиве

+3

Ответы (1)

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

Беатриса · Answer 1

Const

n = 10; var

a : array [1 ... n] of integer;

i, sum : integer;

begin

for i: = 1 to n do

readln (a[i]) ;

sum:=0;

for i: = 1 to n do

if (a[i] mod 2 = 1) and (a[i] > 0) then sum: = sum+a[i];

writeln (sum) ;

end.