Дан одномерный вещественный массив из n чисел. Написать программу нахождения суммы...

Question

Дан одномерный вещественный массив из n чисел. Написать программу нахождения суммы элементов массива стоящих на нечетных позициях (индекс). БЛОК СХЕМА НЕ НУЖНА ТОЛЬКО ПРОГРАММА 10 БАЛЛОВ

Answer 1

Var
s:real;
n,i:integer;
a:array[1..1000] of real;

begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы: ');
for i:=1 to n do 
read(a[i]);
s:=0;
for i:=1 to n do
if odd(i) then s:=s+a[i]; 
writeln('Сумма: ',s);

end.