Дан массив из 15 чисел посчитать количество тех чисел, у которых чётный индекс. Помогите...

Question

Дан массив из 15 чисел посчитать количество тех чисел, у которых чётный индекс. Помогите пожалуйста.

Comments

Я тут поразмыслил: может, надо найти сумму чисел с чётными индексами? Иначе зачем ещё нужен массив?

---

конечно так логичнее)

---

тогда сейчас подправлю)

---

Скорее всего да.

Answer 1

Var a: array [1..15] of integer; i, s: integer;
begin
     for i := 1 to 15 do
         read(a[i]);
     s := 0;
     for i := 1 to 15 do
     if i mod 2 = 0 then
        s := s + a[i];
     writeln(s);
end.

Answer 2

Тут даже программу писать не надо, ибо от 1 до 15 всегда ровно 7 четных чисел