Что сможете. паскаль
1. написать программу, которая вычисляет произведение модулей элементов одномерного массива, расположенных после 1го положительного элемента. массив из 15 вещ. элементов.
2. написать программу, которая вычисляет количество элементов одномерного массива, равных нулю. массив из 12 целых элементов.​

На коленке посчитал: ответ: 160   const finish = 13; var n : integer; procedure go(a : byte; a4,a9 : boolean; s : string); begin   if (a=finish) and a4 and a9 then   begin       inc(n);       writeln(s);   end   else       if a< finish then       begin           a4: =a4 or (a=4);           a9: =a9 or (a=9);           go(a+1,a4,a9,s+'+1');           go(a+2,a4,a9,s+'+2');           go(a*3,a4,a9,s+'*3');       end; end; begin   n: =0;   go(1,false,false,'1');   writeln('всего вариантов: ',n); end. результат: 1+1+1+1+1+1+1+1+1+1+1+1+1 1+1+1+1+1+1+1+1+1+1+1+2 1+1+1+1+1+1+1+1+1+1+2+1 1+1+1+1+1+1+1+1+1+2+1+1 1+1+1+1+1+1+1+1+1+2+2 1+1+1+1+1+1+1+2+1+1+1+1 1+1+1+1+1+1+1+2+1+1+2 1+1+1+1+1+1+1+2+1+2+1 1+1+1+1+1+1+1+2+2+1+1 1+1+1+1+1+1+1+2+2+2 1+1+1+1+1+1+2+1+1+1+1+1 1+1+1+1+1+1+2+1+1+1+2 1+1+1+1+1+1+2+1+1+2+1 1+1+1+1+1+1+2+1+2+1+1 1+1+1+1+1+1+2+1+2+2 1+1+1+1+1+2+1+1+1+1+1+1 1+1+1+1+1+2+1+1+1+1+2 1+1+1+1+1+2+1+1+1+2+1 1+1+1+1+1+2+1+1+2+1+1 1+1+1+1+1+2+1+1+2+2 1+1+1+1+1+2+2+1+1+1+1 1+1+1+1+1+2+2+1+1+2 1+1+1+1+1+2+2+1+2+1 1+1+1+1+1+2+2+2+1+1 1+1+1+1+1+2+2+2+2 1+1+1+1+2+1+1+1+1+1+1+1 1+1+1+1+2+1+1+1+1+1+2 1+1+1+1+2+1+1+1+1+2+1 1+1+1+1+2+1+1+1+2+1+1 1+1+1+1+2+1+1+1+2+2 1+1+1+1+2+1+2+1+1+1+1 1+1+1+1+2+1+2+1+1+2 1+1+1+1+2+1+2+1+2+1 1+1+1+1+2+1+2+2+1+1 1+1+1+1+2+1+2+2+2 1+1+1+1+2+2+1+1+1+1+1 1+1+1+1+2+2+1+1+1+2 1+1+1+1+2+2+1+1+2+1 1+1+1+1+2+2+1+2+1+1 1+1+1+1+2+2+1+2+2 1+1+2+1+1+1+1+1+1+1+1+1 1+1+2+1+1+1+1+1+1+1+2 1+1+2+1+1+1+1+1+1+2+1 1+1+2+1+1+1+1+1+2+1+1 1+1+2+1+1+1+1+1+2+2 1+1+2+1+1+1+2+1+1+1+1 1+1+2+1+1+1+2+1+1+2 1+1+2+1+1+1+2+1+2+1 1+1+2+1+1+1+2+2+1+1 1+1+2+1+1+1+2+2+2 1+1+2+1+1+2+1+1+1+1+1 1+1+2+1+1+2+1+1+1+2 1+1+2+1+1+2+1+1+2+1 1+1+2+1+1+2+1+2+1+1 1+1+2+1+1+2+1+2+2 1+1+2+1+2+1+1+1+1+1+1 1+1+2+1+2+1+1+1+1+2 1+1+2+1+2+1+1+1+2+1 1+1+2+1+2+1+1+2+1+1 1+1+2+1+2+1+1+2+2 1+1+2+1+2+2+1+1+1+1 1+1+2+1+2+2+1+1+2 1+1+2+1+2+2+1+2+1 1+1+2+1+2+2+2+1+1 1+1+2+1+2+2+2+2 1+1+2+2+1+1+1+1+1+1+1 1+1+2+2+1+1+1+1+1+2 1+1+2+2+1+1+1+1+2+1 1+1+2+2+1+1+1+2+1+1 1+1+2+2+1+1+1+2+2 1+1+2+2+1+2+1+1+1+1 1+1+2+2+1+2+1+1+2 1+1+2+2+1+2+1+2+1 1+1+2+2+1+2+2+1+1 1+1+2+2+1+2+2+2 1+1+2+2+2+1+1+1+1+1 1+1+2+2+2+1+1+1+2 1+1+2+2+2+1+1+2+1 1+1+2+2+2+1+2+1+1 1+1+2+2+2+1+2+2 1+2+1+1+1+1+1+1+1+1+1+1 1+2+1+1+1+1+1+1+1+1+2 1+2+1+1+1+1+1+1+1+2+1 1+2+1+1+1+1+1+1+2+1+1 1+2+1+1+1+1+1+1+2+2 1+2+1+1+1+1+2+1+1+1+1 1+2+1+1+1+1+2+1+1+2 1+2+1+1+1+1+2+1+2+1 1+2+1+1+1+1+2+2+1+1 1+2+1+1+1+1+2+2+2 1+2+1+1+1+2+1+1+1+1+1 1+2+1+1+1+2+1+1+1+2 1+2+1+1+1+2+1+1+2+1 1+2+1+1+1+2+1+2+1+1 1+2+1+1+1+2+1+2+2 1+2+1+1+2+1+1+1+1+1+1 1+2+1+1+2+1+1+1+1+2 1+2+1+1+2+1+1+1+2+1 1+2+1+1+2+1+1+2+1+1 1+2+1+1+2+1+1+2+2 1+2+1+1+2+2+1+1+1+1 1+2+1+1+2+2+1+1+2 1+2+1+1+2+2+1+2+1 1+2+1+1+2+2+2+1+1 1+2+1+1+2+2+2+2 1+2+1+2+1+1+1+1+1+1+1 1+2+1+2+1+1+1+1+1+2 1+2+1+2+1+1+1+1+2+1 1+2+1+2+1+1+1+2+1+1 1+2+1+2+1+1+1+2+2 1+2+1+2+1+2+1+1+1+1 1+2+1+2+1+2+1+1+2 1+2+1+2+1+2+1+2+1 1+2+1+2+1+2+2+1+1 1+2+1+2+1+2+2+2 1+2+1+2+2+1+1+1+1+1 1+2+1+2+2+1+1+1+2 1+2+1+2+2+1+1+2+1 1+2+1+2+2+1+2+1+1 1+2+1+2+2+1+2+2 1*3+1+1+1+1+1+1+1+1+1+1 1*3+1+1+1+1+1+1+1+1+2 1*3+1+1+1+1+1+1+1+2+1 1*3+1+1+1+1+1+1+2+1+1 1*3+1+1+1+1+1+1+2+2 1*3+1+1+1+1+2+1+1+1+1 1*3+1+1+1+1+2+1+1+2 1*3+1+1+1+1+2+1+2+1 1*3+1+1+1+1+2+2+1+1 1*3+1+1+1+1+2+2+2 1*3+1+1+1+2+1+1+1+1+1 1*3+1+1+1+2+1+1+1+2 1*3+1+1+1+2+1+1+2+1 1*3+1+1+1+2+1+2+1+1 1*3+1+1+1+2+1+2+2 1*3+1+1+2+1+1+1+1+1+1 1*3+1+1+2+1+1+1+1+2 1*3+1+1+2+1+1+1+2+1 1*3+1+1+2+1+1+2+1+1 1*3+1+1+2+1+1+2+2 1*3+1+1+2+2+1+1+1+1 1*3+1+1+2+2+1+1+2 1*3+1+1+2+2+1+2+1 1*3+1+1+2+2+2+1+1 1*3+1+1+2+2+2+2 1*3+1+2+1+1+1+1+1+1+1 1*3+1+2+1+1+1+1+1+2 1*3+1+2+1+1+1+1+2+1 1*3+1+2+1+1+1+2+1+1 1*3+1+2+1+1+1+2+2 1*3+1+2+1+2+1+1+1+1 1*3+1+2+1+2+1+1+2 1*3+1+2+1+2+1+2+1 1*3+1+2+1+2+2+1+1 1*3+1+2+1+2+2+2 1*3+1+2+2+1+1+1+1+1 1*3+1+2+2+1+1+1+2 1*3+1+2+2+1+1+2+1 1*3+1+2+2+1+2+1+1 1*3+1+2+2+1+2+2 всего вариантов: 160