Question

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

Answer 1

//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

Answer 2

Для решения данной задачи нам понадобится найти последние l положительных элементов в массиве a и умножить их между собой.

1. Создадим переменную count и установим ее значение равным 0. Она будет использоваться для подсчета количества положительных элементов в массиве a.

2. Создадим цикл, который будет проходить по элементам массива a, начиная с конца (с последнего элемента).

3. Внутри цикла проверяем, является ли текущий элемент положительным. Если да, увеличиваем значение переменной count на 1.

4. Сразу после цикла создаем условие, проверяющее, выполнено ли условие count >= l. Если да, значит мы нашли последние l положительных элементов и можем прекратить цикл.

5. Создаем переменную product и устанавливаем ее значение равным 1. Она будет использоваться для подсчета произведения найденных положительных элементов.

6. Создаем новый цикл, который будет проходить по элементам массива a с последнего найденного положительного элемента до последнего элемента массива.

7. Внутри цикла проверяем, является ли текущий элемент положительным. Если да, умножаем его на переменную product.

8. После окончания цикла, переменная product будет содержать произведение последних l положительных элементов массива.

9. Выводим результат - значение переменной product.

Например, пусть у нас есть массив a = [1, -2, 3, -4, 5, -6] и l = 3. 1. Начинаем проход по массиву с последнего элемента: -6, 5, -4, 3, -2, 1. 2. Количество положительных элементов count = 1. 3. Продолжаем проход: -6, 5, -4, 3. 4. Количество положительных элементов count = 2. 5. Продолжаем проход: -6, 5. 6. Найдены последние 3 положительных элемента. 7. product = 5 * 1 = 5.

Таким образом, произведение последних 3 положительных элементов массива a равно 5.