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.