Question

ПОМОГИТЕ написать программу для суммирования четных элементов на нечетных позициях в одноименном массиве 

Answer 1

Const
  n = 30;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  s := 0;
  for i := 1 to n do
  begin
    a[i] := Random(101) - 50;
    Write(a[i], ' ');
    if ((i mod 2) = 1) and ((a[i] mod 2) = 0) then s := s + a[i]
  end;
  Writeln(#13#10, 'Сумма найденных элементов ', s)
end.

Тестовое решение:
Исходный массив
49 -39 -17 6 24 38 20 50 6 -36 -4 -7 -31 41 -8 20 32 49 -48 -47 50 48 -41 -44 -26 -11 9 38 -24 -34
Сумма найденных элементов 22

Answer 2

Конечно! Вот пример программы на языке Python, которая решает вашу задачу:

pythonCopy code
# Создаем массив
arr = [1, 2, 3, 4, 5, 6, 7, 8, 9]

# Инициализируем переменную для хранения суммы
sum = 0

# Проходим по элементам массива на нечетных позициях, начиная с нулевой
for i in range(1, len(arr), 2):
    # Если элемент четный, добавляем его к сумме
    if arr[i] % 2 == 0:
        sum += arr[i]

# Выводим результат
print("Сумма четных элементов на нечетных позициях:", sum)

Для других языков программирования алгоритм будет примерно таким же, но могут отличаться синтаксис и функции для работы с массивами.