Написать программу в паскале: в последовательности целых чисел найти произведение нечётных
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Опишите переменные, необходимые для вычисления: при x=-5.3, y=7.42
Автор: Irinalobanowa
Вычислить сумму натуральных чисел не превосходящую заданное число а, while
Автор: inj-anastasia8
с информатикой 8 класс с решением и чертежом
Автор: Любовь-Волков1205
Написать программу на c++ выделены
Автор: ella-rudenko
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.