Запишите программу для в линейной таблице p(1: 10) подсчитать произведение элементов, больших числа 12

var a:array [1..10] of integer;

i:integer;

b:integer;

begin

for i:=1 to 10 do

if (a[i]>12) and (b=0) then b:=a[i] else if a[i]>12 then b:=b*a[i];

writeln (b);

end.

Объяснение:

Берем массив а под линейную таблицу. Создаем цикл фор, который проверяет сначала если наша переменная с ответом=0 и элемент массива>12, то наш ответ=элементу массива, после этого если элемент массива>12, то цикл умножает этот элемент массива на переменную с ответом. В конце программа выводит ответ.