помогите, пожалуйста!!!!очень надо!!!!

Ну и какая проблема? Сначала ищется индекс максимального элемента.

MaxI :=1;
for i:=2 to n do if A[ i ] > A[MaxI] then MaxI := i;

А затем считается сумма

for i:=1 to MaxI do if A[ i ] > 0 then S := S + A[ i ];

В сумме будут элементы, включая и максимальный. Если максимальный не надо суммировать, уменьшите верхнюю границу цикла.

счас... кинулись.. .
хотя, 1000 баксов - напишем !

1.задаешь массив вещественных чисел
2 впихиваешь поисковую функцию (ибо нам нужно только результат - сумму, поэтому не процедуру) . в ней пишешь последовательный поисковый цикл (сначала ищем максимальное положительное число (проверяем - положительное ли, потом проверяем, что оно наибольшее - то есть запоминаем первое положительно, а потом если какое-то значение больше его, то запоминаем наибольшее) , запоминаем индекс наибольшего, потом ищем сумму всех положительных чисел до индекса этого максимального числа (тут опять повтор - смотрим положительный ли сейчас элемент, если положительный, то суммируем, если нет, то берем следующий) )
3. выводишь на экран значение.
вам наверняка объясняли как задавать поисковые циклы (это основы основ) . распиши для себя сначала последовательность действий - схему алгоритма данной программы. рассмотри каждый пункт, что делаем, все ли учли, что получаем на выходе из условия, из цикла, ну и тд.

много раз переписывал, но это потому, что сначала возмутился такому вопросу, а потом вспомнил, как сам начинал) у тебя все получится