Задача по информатике, срочно!!!!
Найти сумму элементов линейного массива вещественных чисел имеющих нечетные номера.

program qq;uses crt;var  i, n: integer; a:array[1..20] of real; sum: real;beginwriteln ('Введите количество элементов массива');readln(n);writeln ('Введите элементы массива');for i:=1 to n do    read (a[i]);sum:=0; //Обнуляем переменную суммыfor i:=1 to n do    if i mod 2 <> 0 then  sum:=sum+a[i]; //Если индекс нечетный (т.е. его остаток от деления на 2 не равен //нулю), то прибавляем элемент к уже посчитанной суммеwriteln (sum:6:2); //Выводим сумму на экранend.