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

Question

Информатика

Фотиния

3 сентября, 14:13

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

+5

Ответы (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.