Помогите решить задачу.

Решить через паскаль.

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

Question

Информатика

Роня

8 июня, 04:38

Помогите решить задачу.

Решить через паскаль.

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

+1

Ответы (1)

Знаете ответ на вопрос?

Каллисфен · 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.

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

Помогите решить задачу.

Решить через паскаль.

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