Дан массив из n элементов. Определить сумму тех, которые нечетные и отрицательные

[Evgenii_95]

Данн массив из n элементов определить сумму тех которые нечетные и отрицательные.

[Serge_Bliznykov]

ввод массива самостоятельно напишете?

а вот, собственно, и сама программа ( цикл вычисления суммы):

SumNegOdd := 0;
for i:=1 to N do 
  if (A[i]<0) and odd(A[i]) then SumNegOdd := SumNegOdd + A[i];