сумма элементов массива

[polika]

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

[newerow1989]

const n=12;
var p:array[1..n] of real;
    i,i1,i2:integer;
    s:real;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=Random(21)+Random;//заполнение массива случайными числами
      Write(p[i]:2:5,'  ');//вывод массива на экран
   end;
   Writeln;
   i1:=2;//первый четный элемент
   i2:=(n div 2)*2;//последний четный элемент
   s:=0;//обнуляем счетчик
   For i:=i1+1 to i2-1 do//цикл между первым и последним четными элементами
      s:=s+p[i];//считаем сумму
   Writeln('s = ',s:2:5);//вывод суммы на экран
   Readln;
end.

Сойдет?

[Poma][a]

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

Я один ничего не понял?
Массив у нас вещественный
А нужно найти сумму между последним первым элементом (не индексом!)
Но понятие четности\нечетности неопределенно для вещественных чисел

[newerow1989]

номер и индекс элемента равнозначны
я так понял

[Poma][a]

А где Вы в задании увидели слово номер?

[Serge_Bliznykov]

я согласен с мнением Poma][a, в данной формулировке задача решения НЕ ИМЕЕТ.
додумывать, как изменить задание, чтобы оно имело смысл и решение можно по разному,
но, по хорошему, нужно идти к автору задачи/преподавателю и (тыкать носом) показывать, что для вещественных чисел не определено понятие чётности/нечётности.

[Stilet]

по хорошему, нужно идти к автору

Посадить его в бочку с отработанным кошачьим туалетом и час махать над головой шашкой, заставляя его приседать
А Неверов скорее всего прав. Речи идет о номерах элементов.