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