Написать программу в паскале: в последовательности целых чисел найти произведение нечётных
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
В паскале, сделайте программу рисунок медведя
Автор: vera141187
Кто мне это решить ? кто мне)
Автор: AnastasiyaSkripin1283
Автор: afilippov3321
Что такое твёрдый носитель информации?
Автор: Борисович409
Як називаються алгоритми у скретч
Автор: Kharkina1328
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.