Сгониривровать массив с размером от 1 до 100 найти сумму каждого 2 элементапомогите пж

Question

Сгониривровать массив с размером от 1 до 100 найти сумму каждого 2 элемента
помогите пж

Comments

помогите пожалуйста срочно

---

Суммировать какие номера?

---

Четные или нечетные?

---

И на основе чего генерировать? Чему, например, равен 3-й элемент?

---

четные

---

от 1

---

до 100

---

3 элемент равен 3

---

т.е. последовательность - это 1,2,3,4,5...

---

да

Answer 1

Var
  i,s:integer;
  a:array[1..100] of integer;
 
begin
  for i:=1 to 100 do a[i]:=i;
  s:=0;
  i:=2;
  while i<=100 do begin<br>    s:=s+a[i];
    i:=i+2
    end;
  Writeln('Сумма четных элементов равна ',s)
end.

Пример
Сумма четных элементов равна 2550

А вот так эту задачу решают "во взрослом мире" (если не помнят формулу суммы арифметической прогрессии):

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

begin
  Range(2,100,2).Sum.Println
end.