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

Помогите решить задачу. Решить через паскаль. Дан массив В(50) целых чисел. Подсчитать сумму тех элементов массива, которые нечетны и отрицательны.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы