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

Question

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

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.