Найти сумму элементов массива x[38] стоящих в четных ячейках

Question

Найти сумму элементов массива x[38] стоящих в четных ячейках

Comments

язык паскаль

---

не знаю как на паскале, но на c++ как-то так:

---

??

Answer 1

Program arr;
  var x:array[1..38] of integer;
      i, s:integer;
begin
  for i:=1 to 38 do
    read(x[i]);
  for i:=1 to 38 do
    if i mod 2 = 0 then
      s := s+x[i];
  writeln(s);
end.

Comments

оо большое спасибо