Ответы
Ответ дал:
0
const
N = 5;
type
Tmas = array [1..N] of longint;
var
m: Tmas;
i, proiz: longint;
begin
proiz := 1;
for i := 1 to N do
begin
readln(m[i]);
if m[i] mod 2 = 1 then
proiz:=proiz*m[i];
end;
writeln(proiz);
end.
пж как лучший
N = 5;
type
Tmas = array [1..N] of longint;
var
m: Tmas;
i, proiz: longint;
begin
proiz := 1;
for i := 1 to N do
begin
readln(m[i]);
if m[i] mod 2 = 1 then
proiz:=proiz*m[i];
end;
writeln(proiz);
end.
пж как лучший
Вас заинтересует
1 год назад
1 год назад
7 лет назад