Question

Найти сумму элементов массива кратных 4

Answer 1

Program n1;
const n=10;
var a: array[1..n] of integer;
i,sum: integer;
begin
sum:=0;
write('массив: ');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
if a[i] mod 4=0 then sum:=sum+a[i];
end;
writeln;
write('сумма кратных 4: ',sum);
end.

Answer 2

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Where(t->t mod 4=0).Sum.Println
end.

Пример
n= 15
16 -38 47 11 16 -16 -25 21 16 4 11 -18 -47 -41 19
36

Answer 3

Для того чтобы найти сумму элементов массива, которые кратны 4, вам потребуется пройти по всем элементам массива и сложить те, которые соответствуют данному условию. Вот пример того, как это можно сделать на языке Python:

pythonCopy code
def sum_elements_divisible_by_4(arr):
    total_sum = 0
    for num in arr:
        if num % 4 == 0:
            total_sum += num
    return total_sum

# Пример массива
my_array = [8, 16, 5, 12, 9, 20]

result = sum_elements_divisible_by_4(my_array)
print("Сумма элементов, кратных 4:", result)

В этом примере функция sum_elements_divisible_by_4 принимает массив в качестве аргумента, затем проходит по всем элементам массива, проверяет, делится ли элемент на 4 без остатка, и если да, то добавляет его к сумме total_sum. В конце выводится полученная сумма.