С клавиатуры вводится число n, а за ним - массив из

введем переменную nom - это будет номер заключительного положительного элемента. нужно каждый элемент массива прогнать и инспектировать его на положительность. т. е. проверяем число if (A[i]>0) тогда nom=i; ну и в конце вывести nom

Не могли бы вы сходу же написать всю программку?

для вас необходимо на Паскале? я на Cи пишу..

Да, на Паскале

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] lt;= 0) and (i gt; 0) do Dec(i);
  if i gt; 0 then Writeln('Заключительный положительный элемент a[', i, ']=', a[i])
end.

Тестовое решение:
Введите количество частей в массиве: 5
Введите элементы массива через пробел 3 -3 5 -5 -4
Заключительный положительный элемент a[3]=5