Одномерный массив из N элементов. Найти сумму элементов массива с четными номерами.

Ответ учителя по предмету Информатика

var

a: array[1..1000] of integer;

i,s,N: integer;

begin

s:=0;

write(‘Введите N: ‘);

readln(N);

for i:= 1 to N do begin

readln(a[i]);

if i mod 2 = 0 then s:=s+a[i];

end;

writeln(‘Сумма элементов с четными номерами: ‘,s);

end.