Алгоритм же элементарный: тупо перебираешь массив с конца, проверяя знак каждого элемента. Вот код:
ОТДЕЛ Задание+;
ПЕР
x: РЯД 100 ИЗ ЦЕЛ;
сч, послПолож: ЦЕЛ;
УКАЗ
послПолож := -1;
сч := РАЗМЕР(x) - 1;
ПОВТОРЯТЬ
ЕСЛИ x[сч] > 0 ТО послПолож := сч КОН;
УМЕНЬШИТЬ(сч)
ДО послПолож # -1 ИЛИ сч < 0
КОН Задание.