Question

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

Answer 1

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.