Найти произведение последних l положительных элементов в массиве a={a[i]}.

//Pascal ABC.NET 3.1 сборка 1219

Var
 ar:array[1..10] of integer;
 i,n,k:integer;
 b:boolean;
begin
randomize;
 k:=1;
 b:=false;
 writeln('Array');
 for i:=1 to 10 do
  begin
   ar[i]:=random(-10,10);
   write(ar[i]:4);
  end;
writeln;
readln(n);
 for i:=10 downto 10-n+1 do
 if ar[i]>0 then
 begin
 k:=k*ar[i];
 b:=true;
 end;
if b=true then write('Res=',k) else write('Res=0');
end.

Пример работы программы:
Array   0  -8  -7  -9   8  -8   9   2  -7  -6
5
Res=18

Количество цифр, составляющих алфавит, называется его размерностью.

Источник :

http://informatics-lesson.ru/notations/positional-systems.php#:~:text=%D0%A1%D0%B8%D0%BC%D0%B2%D0%BE%D0%BB%D1%8B%2C%20%D0%BF%D1%80%D0%B8%20%D0%BF%D0%BE%D0%BC%D0%BE%D1%89%D0%B8%20%D0%BA%D0%BE%D1%82%D0%BE%D1%80%D1%8B%D1%85%20%D0%B7%D0%B0%D0%BF%D0%B8%D1%81%D1%8B%D0%B2%D0%B0%D1%8E%D1%82%D1%81%D1%8F,%D0%B5%D0%B5%20%D0%BF%D0%BE%D0%BB%D0%BE%D0%B6%D0%B5%D0%BD%D0%B8%D1%8F%20%D0%B2%20%D0%B7%D0%B0%D0%BF%D0%B8%D1%81%D0%B8%20%D1%87%D0%B8%D1%81%D0%BB%D0%B0.

Проверь информацию там.

Могу вернуть своим вопросом а ты ответом заберёшь их.

Задачу лучше решать с конца – то есть получать число 1 из числа 434 с командотними 2 
отними 3 
раздели на 10Первые две команды должны быть командами вычитания 2 (команда №1), после их выполнения мы получим 430. В противном случае после выполнения двух первых команд мы получим 429 или 428 и после выполнения 6 команд наименьшее число, которое можно будет получить – это число 42. Третьей командой (по аналогичным соображениям) должна быть команда №3 «раздели на 10». После ее выполнения получим 43. Далее, рассуждая аналогично, находим три остальные команды. Это будут, соответственно, команда №2 (получим 40), команда №3 (получим 4), команда №2 (получим 1). Таким образом, в новой системе команд программа получения числа 1 из числа 434 – это программа 113232. Значит, искомая программа получения числа 434 из числа 1 в исходной системе – это «обратная программа» - программа 232311.