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

плизз прошу помоги мне решить Задачу по Информатике

Я жду от тебя ответа

когда ты решишь мне задачу по информатике

Понятно да

Скажи да что решишь информатику

const  nm = 50;{максимальная длина массива}var  i, n: integer;  a: array[1..nm] of integer;begin  Write('Введите количество элементов в массиве: ');  Readln(n);  Write('Введите элементы массива через пробел ');  for i := 1 to n do   begin    Read(a[i]);  end;  i := n;  while (a[i] <= 0) and (i > 0) do Dec(i);  if i > 0 then Writeln('Последний положительный элемент a[', i, ']=', a[i])end.Тестовое решение:Введите количество элементов в массиве: 5Введите элементы массива через пробел 3 -3 5 -5 -4Последний положительный элемент a[3]=5