Описать алгоритм задачи на псевдокоде (Pascal)

[prs58]

Нужно описать задачу по примеру:

ввод(n,a)
S:=0
i:=1
пока i<=n вып
ввод(b)
если b<=a
то S:=S+b
кон-если
i:=i+1
кон-пока
вывод(S)

Сама задача для описания на псевдокоде:

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


Прошу помощи,не знаю как сделать.

[bonjovi]

var a:array [1..20] of integer;
    i:integer;
    
Begin
     For i:= 1 to 20 do readln(a[i]);
     Begin
          For i:= 20 downto 1 do   break;

          If a[i] > 10 then writeln('___________',a[i])
                       else writeln('0');
                       end;
                       end.

[prs58]

Сообщение от bonjovi

var a:array [1..20] of integer;
    i:integer;
    
Begin
     For i:= 1 to 20 do readln(a[i]);
     Begin
          For i:= 20 downto 1 do   break;

          If a[i] > 10 then writeln('___________',a[i])
                       else writeln('0');
                       end;
                       end.

Мне нужно на псевдокоде.

[prs58]

Пожалуйста помогите написать на псевдокоде.

[prs58]

Мне в понедельник надо уже сдать,поможет ли кто нибудь?Я пытался,но ничего не выходит.Нужно описать на псевдокоде.

[whatever]

Сообщение от bonjovi

var a:array [1..20] of integer;
    i:integer;
    
Begin
     For i:= 1 to 20 do readln(a[i]);
     Begin
          For i:= 20 downto 1 do   break;//великолепно. только не здесь. малость ниже, плюс блок begin-end

          If a[i] > 10 then writeln('___________',a[i])
                       else writeln('0');
                       end;
                       end.

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

начало
i:=0;
пока a[i] не равно 0 делай
  начало
    ввод(m[i])
    инкремент i
  конец
n:=i
для i:=n спускаясьВнизДо 0 делай
  если a[i]>10 тогда
    начало
      вывод(m[i])
      закончитьЦикл
    конец
  иначе
    вывод(0)
конец

Как по мне - чушь собачья, но стандартов на псевдокод, вроде бы, нет, так что, думаю, пойдет.