Question

Написат программу для вычисления суммы четных элементов заданного массива А состаяшего из 20 ти елементов

Answer 1

Const
   N = 20;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    if A[i] mod 2 = 0 then S:=S+A[i];
    End;
WriteLn;
WriteLn('Сумма чётных элементов: ',S);
End.

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-99,99); a.Println;
  Writeln('S=',a.Where(x->x.IsEven).Sum)
end.

Пример
47 -39 -65 49 -65 82 -70 37 -4 5 -77 62 26 -7 96 -58 -83 43 74 -20
S=188

Answer 3

Конечно, я могу помочь вам написать программу на каком-либо языке программирования. Давайте рассмотрим пример программы на языке Python, чтобы вычислить сумму четных элементов заданного массива из 20 элементов.

# Создаем массив из 20 элементов (можно задать свои значения)
A = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20]

# Инициализируем переменную для хранения суммы четных элементов
sum_of_even_elements = 0

# Проходим по каждому элементу массива
for element in A:
    # Проверяем, является ли элемент четным
    if element % 2 == 0:
        # Если элемент четный, добавляем его к сумме
        sum_of_even_elements += element

# Выводим результат
print("Сумма четных элементов массива A:", sum_of_even_elements)

Программа создает массив A из 20 элементов и затем использует цикл for для проверки каждого элемента на четность. Если элемент четный, его значение добавляется к переменной `sum_of_even_elements`. В конце программа выводит сумму четных элементов.

Если вы предпочитаете использовать другой язык программирования, дайте знать, и я могу предоставить аналогичный пример на выбранном вами языке.