Question

Составить программу к задаче: Найти сумму элементов массива с четными номерами, содержащего N элементов. Элементы вводятся с клавиатуры.

умоляю помогите !!! ​

Answer 1

const

N = 10;

var

arr : array[1..N] of integer;

i, _sum : integer;

begin

_sum := 0;

for i := 1 to N do

   readln(arr[i]);

i := 2;

while i <= N do

   begin

   _sum := _sum + i;

   i := i + 2;

   end;

writeln(_sum);

end.