var a:array[1..5]of integer;
p,i:integer;
begin
randomize;
p:=1;
for i:=1 to 5 do
begin
a[i]:=random(5)+1;
if odd(a[i]) then p:=p*a[i];
end;
writeln('Массив:');
for i:=1 to 5 do
write(a[i]:2);
writeln;
writeln('Произведение=',p);
end.
var a:array[1..5]of integer;
p,i:integer;
begin
randomize;
p:=1;
for i:=1 to 5 do
begin
a[i]:=random(5)+1;
if odd(a[i]) then p:=p*a[i];
end;
writeln('Массив:');
for i:=1 to 5 do
write(a[i]:2);
writeln;
writeln('Произведение=',p);
end.