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

Ответы:

Eva Isaeva

15-11-2013 05:25

var b: array[1..50] of Integer; i, sum: Integer;Beginsum := 0;for i := 1 to 50 doreadln(b[i]);for i := 1 to 50 doif (b[i] mod 2 <> 0) and (b[i] < 0) then sum := sum + b[i];write(sum);End.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя АМИНА ПАРХОМЕНКО

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите решить задачу. Решить через паскаль. Дан массив В(50) целых чисел. Подсчитать сумму тех элементов массива, которые нечетны и отрицательны.» от пользователя АМИНА ПАРХОМЕНКО в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!