Найти произведение нечетных элементов массива - Turbo Pascal

Формулировка задачи:

Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти произведение элементов, имеющих нечетное значение

Решение задачи: «Найти произведение нечетных элементов массива»

Листинг программы

var
  a:array[1..10] of integer;
  i:integer;
  s:real;
  b:boolean;
begin
  write('Введите 10 элементов массива:');
  s:=1.0;b:=false;
  for i:=1 to 10 do begin read(a[i]);if odd(a[i]) then begin s:=s*a[i];b:=true;end;end;
  if b then writeln('Произведение=',s:0:0) else writeln('Все числа четные');
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal реализована задача по нахождению произведения нечетных элементов массива. Переменная a представляет собой массив, содержащий 10 элементов целого типа. Переменная i является счетчиком, который последовательно принимает значения от 1 до 10. Переменная s инициализируется значением 1.0 и используется для хранения произведения нечетных элементов массива. Переменная b инициализируется значением false и используется для контроля результата. Затем происходит цикл, в котором для каждого элемента массива a[i] считывается значение с помощью функции read. Если элемент нечетный, то значение переменной s умножается на текущее значение a[i], а переменная b устанавливается в значение true. После завершения цикла проверяется значение переменной b. Если оно равно true, то выводится результат произведения на экран, иначе выводится сообщение о том, что все числа в массиве четные. Таким образом, данный код позволяет найти произведение нечетных элементов массива.