Решение во вложении. В розовых ячейках заданы начальные значения (218 и 169). В жёлтых - формулы. В ячейке С10 получаем результат.
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var (k1,k2):=ReadInteger2('Границы номеров элементов k1 и k2:');
if (k1>0) and (k2<=a.Length) and (k2>k1) then
Writeln('П=',a[k1-1:k2].Aggregate(BigInteger(1),(p,q)->p*q))
else Writeln('Неверно заданы k1,k2')
end.
<u>Пример</u>
n= 17
-49 33 -50 34 -21 -3 -16 -39 8 -27 -28 11 -12 -33 47 9 -20
Границы номеров элементов k1 и k2: 3 15
П=-82750680146534400
3)545212 тут после нечётных есть чётная и первая цифра 5 и последняя цифра чётная
Это вроде <span>1)математическая формализация задачи - </span>способ выражения содержания совокупности условий через опреленную форму - знаки искусственного языка.
2)отладка программы - это этап разработки на котором ищут и устаняют ошибки
3)тест - метод изучения процесов системы
Как то так