Найти сумму четных отрицательных элементов массива

Задача

Найти сумму тех элементов массива, которые одновременно имеют четные и отрицательные значения.

Например, в массиве [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

 

Тема

Одномерные массивы

Уровень

Простые задачи

Последняя редакция

Комментарии

gene 18/06/2017

Дан массив T(7). Подсчитайте произведение элементов, находящихся в четных ячейках.

const T=7;
var
    arr: array[1..T] of integer;
    i: byte;
    mult: longint;
begin
    randomize;
    mult := 1;
    for i:=1 to T do begin
        arr[i] := random(10);
        write(arr[i],' ');
        if i mod 2 = 0 then
            mult := mult * arr[i];
    end;
    writeln;
    writeln(mult);    
end.