program Proizvedenie;
varN, i, num: integer;proizv: integer;
beginwriteln('Введите количество чисел: ');readln(N);
proizv := 1;
writeln('Введите числа: ');for i := 1 to N dobeginreadln(num);if (num < 0) and (num mod 2 <> 0) thenbeginproizv := proizv * num;end;end;
writeln('Произведение отрицательных нечетных чисел: ', proizv);
end.
program Proizvedenie;
var
N, i, num: integer;
proizv: integer;
begin
writeln('Введите количество чисел: ');
readln(N);
proizv := 1;
writeln('Введите числа: ');
for i := 1 to N do
begin
readln(num);
if (num < 0) and (num mod 2 <> 0) then
begin
proizv := proizv * num;
end;
end;
writeln('Произведение отрицательных нечетных чисел: ', proizv);
end.