1. В последовательности чисел подсчитать произведение чисел, кратных 3. 2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных. 3. В последовательности чисел определить предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа).

1) Пока пользователь будет вводить числа, мы будем в программе проверять, удовлетворяет ли условию if (num mod 3 = 0) введенное число.

Если да, то у нас будет специальная переменная, которая будет изначально равна единице, а затем при попадании в тело условия, будет умножаться на значение текущего числа.

proizv : = 1;

if (num mod 3 = 0) then

proizv : = proizv * num;

2) Здесь нужен такой алгоритм:

summa : = 0;

proizv : = 1;

if (num > 0) then

summa : = summa + num

else

proizv: = proizv * num;

В конце программы сравнить произведение и сумму:

if (summa > proizv) then.

3) Можно использовать проход в обратном порядке с помощью слова downto:

for i:=10 downto 1 do

if I : = 2 then

write (A[i]);

Предпоследнее отрицательное число будет отображено на экране.