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

Задача

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

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

 

Тема

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

Уровень

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

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

Добавить комментарий