Помогите решить задачу. Решить через паскаль. Дан массив В(50) целых чисел. Подсчитать...

Question

Помогите решить задачу.
Решить через паскаль.
Дан массив В(50) целых чисел. Подсчитать сумму тех элементов массива, которые нечетны и отрицательны.

Answer 1

Var b: array[1..50] of Integer; i, sum: Integer;
Begin
sum := 0;
for i := 1 to 50 do
readln(b[i]);
for i := 1 to 50 do
if (b[i] mod 2 <> 0) and (b[i] < 0) then sum := sum + b[i];
write(sum);
End.