Найти сумму четных отрицательных элементов массива
Задача
Найти сумму тех элементов массива, которые одновременно имеют четные и отрицательные значения.
Например, в массиве [3, -5, -2, 4, -8, 0] отрицательными четными элементами являются числа -2 и -8. Их сумма равна -10.
Похожие задачи
Решение
Для решения поставленной задачи надо проверить каждый элемент массива на отрицательность и на четность. Сделать это можно в заголовке оператора ветвления, используя сложное логическое выражение с оператором and
. Если текущий элемент массива отрицателен (<0) и четный, то добавляем его значение к переменной, в которой накапливается сумма.
Четность элемента в языке Паскаль можно проверить двумя способами:
- С помощью оператора
mod
(нахождение остатка от деления). Так если при делении на 2 остаток равен нулю, то число четное. - С помощью функции
odd()
, которая возвращаетfalse
(ложь), если число четное.
const N = 10; var a: array[1..N] of integer; i: byte; sum: integer; begin randomize; for i:=1 to N do a[i]:=random(10)-5; for i:=1 to N do write(a[i]:4); writeln; sum := 0; for i:=1 to N do begin if (a[i]<0) and (odd(a[i])=false) then sum := sum + a[i]; end; writeln(sum); end.
Пример выполнения кода:
-2 -4 2 -3 -2 -1 2 -5 -3 -5 -8
Комментарии
Произведение элементов в четных ячейках
Дан массив T(7). Подсчитайте произведение элементов, находящихся в четных ячейках.