var
a:array of integer;
i,pr,n:integer;
flag:boolean;
begin
write('Kol-vo elementov: ');
readln(n);
setlength(a,n);
pr:=1;
for i:=0 to n-1 do
a[i]:=random(101)-50;
write(a[i]:4);
if a[i] mod 2 = -1 then
pr:=pr*a[i];
flag:=true;
end;
writeln;
if flag then
writeln('Proizved:',pr)
else writeln('Error');
end.
var
a:array of integer;
i,pr,n:integer;
flag:boolean;
begin
write('Kol-vo elementov: ');
readln(n);
setlength(a,n);
pr:=1;
for i:=0 to n-1 do
begin
a[i]:=random(101)-50;
write(a[i]:4);
if a[i] mod 2 = -1 then
begin
pr:=pr*a[i];
flag:=true;
end;
end;
writeln;
if flag then
writeln('Proizved:',pr)
else writeln('Error');
end.