Задача:
Среди заданных чисел найти произведение всех нечетных цифр. Если таких цифр нет - вернуть 1.
Формат ввода:
На первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000).
На второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел.
Формат вывода:
Целое число.
Пример входных данных
5
1 -20 -3 40 0
Пример выходных данных
3
Пояснение:
1 * 3 = 3
Паскаль ABC
Среди заданных чисел найти произведение всех нечетных цифр. Если таких цифр нет - вернуть 1.
Формат ввода:
На первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000).
На второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел.
Формат вывода:
Целое число.
Пример входных данных
5
1 -20 -3 40 0
Пример выходных данных
3
Пояснение:
1 * 3 = 3
Паскаль ABC
More Questions From This User See All
Answers & Comments
Verified answer
Программа:
var
n, i, s, j, k: integer;
begin
write('Количество элементов в последовательности: '); readln(n);
s := 1;
for i := 1 to n do begin
read(j);
if j mod 2 = 1 then begin
s := s * j;
inc(k);
end;
end;
if k = 1 then writeln('1') else writeln(s);
end.