Задача: Среди заданных чисел найти произведение всех нечетных цифр. Если таких цифр нет - вернуть 1.
Формат ввода:
На первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000).
На второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел.
Формат вывода:
Целое число.
Пример входных данных
5
1 -20 -3 40 0
Пример выходных данных
3
Пояснение:
1 * 3 = 3
Паскаль ABC
zanna74
3
18.10.2021 16:06
4
Другие вопросы по теме Информатика
halex3456
26.12.2020 20:30
роман509
26.12.2020 20:32
zheckachernev
26.12.2020 20:32
qazdhnvd
02.05.2020 23:22
Leonova23
02.05.2020 23:22
даладно30раз
22.07.2019 22:10
Рара15рара1
22.07.2019 22:20
нара123
21.07.2019 18:30
nikitachymev
21.07.2019 18:30
Популярные вопросы
- Определите координаты точек пересечения графиков функций у=5х-20 и у=10х-70...
1 - Очём говорится в стихотворении ? когда волнуется желтеющая нива, и свежий...
3 - Решите в столбик в столбец...
1 - Напишите словосочетание со словами указаными ниже, не изменяя слова :...
1 - Как связаны температура воздуха и атмосферное давление...
1 - Как пишется окончание в слове ? (е или и)...
1 - Слово о погибели земли - это художественная ? ...
1 - Какова формула реактива для распознавания фенолов?...
1 - 98 решить на паскале 1) дан двумерный массив целых чисел: а) сумму нечетных...
3 - Смысл стихотворения заболоцкого одинокий дуб. ответьте одним предложением...
1
Программа:
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.