Написать программу в паскале: в последовательности целых чисел найти произведение нечётных
долма1
3
11.02.2021 21:52
14
Другие вопросы по теме Информатика
nasyapest
14.05.2021 07:25
Афооня
12.12.2020 02:33
Лилия2073
08.06.2019 06:10
Юлия0753
08.06.2019 06:20
anasstasissya
08.06.2019 06:20
markis4
29.04.2020 12:57
llboyn
29.04.2020 12:57
ignatevakseniap087h6
08.02.2022 08:38
Популярные вопросы
- Расположите числа в порядке возрастания; а) 9000.4001.3516.1399 б)1399.4001.9000.3516...
2 - Сколько можно составить неверных между собой правильных дробей , числитель...
3 - 8. для каждого примера докажите, что возможно не одно написание. 1) так(же)...
2 - Переведите на казахский язык мой день рождения у меня будет хорошее настроение....
2 - Направление стихотворения к чаадаеву...
3 - Преведите дробь 6/11и 4/9,7/18и1/6,...
1 - Вкомнате у веры две полки . одна длиной 65 см, другая 44 см. какое наибольшее...
2 - Представьте высказывание в виде формулы неверно что 2×2=5...
2 - Разберитесь слово сквозь как часть речи 34...
2 - Решите для школьной столовой закупили сок. томатного и яблочного вместе было...
2
var m, i: integer;
a:array[1..5] of integer = (2,4,6,5,7);
begin
m:=0;
for i:=1 to length(a) do begin
if a[i] mod 2 <> 0 then begin
if m = 0 then m:=1;
m:=m*a[i];
end;
end;
write(m);
end.