Не пойму задание.

[iCaesy]

Даны натуральное число n, действительные числа a[1],...,a[n]. Вы-
числить a[1]-a[2]+a[3]-...+(-1)^(n+1)a[n].

Не могу понять что нужно сделать, кроме того что у нас одномерный массив...

[Abstraction]

Вычислить "Первый элемент минус второй плюс третий минус четвёртый плюс пятый..."
В общем, нечётные с плюсом, чётные с минусом.

[iCaesy]

Написал так:

kol:=0;
for i:=1 to n do
if  odd(a[i]) then begin
kol:=kol+a[i];
end
else
kol:=kol-a[i];

Не правильно считает, в чем ошибка.

[JUDAS]

Abstraction сказал же, не нужно проверять на чётность нужно чередовать знак.

kol:=0;
for i:=1 to n do
kol:=kol+(1-2*byte(i mod 2=0))*a[i];

П.С. добавил информацию для теоретических программистов:
я специально написал i mod 2=0 по причине того, что n-положительное натуральное число

[iCaesy]

Явное преобразование типа Boolean к типу byte запрещено...

[Abstraction]

На чётность проверять i, а не a[i].
Я имел в виду, что первый, третий, пятый и т.д. члены массива идут с плюсом, а второй, четвёртый, шестой... - с минусом.

[JUDAS]

если Явное преобразование типа Boolean к типу byte запрещено тодла

kol:=0;
for i:=1 to n do
case i mod 2 of
 1: kol:=kol-a[i];
 0: kol:=kol+a[i];
end;

так наглядней )

[iCaesy]

Ввел 1 2 3 4 5
По идее 1-2+3-4+5 = 3
А выводит -3 !

[iCaesy]

Сообщение от JUDAS

если Явное преобразование типа Boolean к типу byte запрещено тодла

kol:=0;
for i:=1 to n do
case i mod 2 of
 1: kol:=kol-a[i];
 0: kol:=kol+a[i];
end;

так наглядней )

Поменял + на - и заработало.
Спасибо всем.

[phomm]

Зачем вообще преобразование )) ? просто записать *(i mod 2) если четное, то скобка суть 0, если нечетное - 1, и тогда для четного i

(2*(i mod 2)-1)

будет -1, а для нечетного 1