Составить алгоритм нахождения позиции последнего положительного элемента x1,

Алгоритм же элементарный: тупо перебираешь массив с конца, проверяя знак каждого элемента. Вот код:

ОТДЕЛ Задание+;

ПЕР
  x: РЯД 100 ИЗ ЦЕЛ;
  сч, послПолож: ЦЕЛ;

УКАЗ
  послПолож := -1;
  сч := РАЗМЕР(x) - 1;
  ПОВТОРЯТЬ
    ЕСЛИ x[сч] > 0 ТО послПолож := сч КОН;
    УМЕНЬШИТЬ(сч)
  ДО послПолож # -1 ИЛИ сч < 0

КОН Задание.