Дан одномерный массив, состоящий из 10 элементов. Сосчитать сумму четных элементов массива

Question

Дан одномерный массив, состоящий из 10 элементов. Сосчитать сумму четных элементов массива

Comments

на паскале?

---

пожалуйста, указывайте язык программирования

---

ЯЗЫК ПАСКАЛЬ !

Answer 1

Var  a : array [1..10] of integer;
  b, i : integer;
begin
  randomize;
  write('Исходный массив: ');
  for i := 1 to 10 do
   begin
    a[i] := random(10);
    write(a[i], chr(32));
    if (a[i] mod 2) = 0 then b += a[i];
  end;
  writeln();
 writeln('Сумма четных: ', b);
end.

- написано в Pascal ABC
- массив из 10 элементов заполняется случайными числами от 0 до 10
- суммируются четные значения элементов, а не элементы с четными индексами

Comments

В задании нечетко сформулировано условие. "Сосчитать сумму четных элементов массива" - тут можно понимать, что требуется либо учитывать элементы с четными индексами, либо элементы с четными значениями. Версия языка Паскаль также в задании не указана. Поэтому автор ответа сам выбрал версию языка и дал ответ для суммы элементов с четным значением.