Паскаль.

С клавиатуры вводится N целых чисел. Найти произведение тех из них, которые нечетны и отрицательны.

Var

i, n, k:integer;

p:longint;

f, ff:boolean;

begin

Write ('Введите количество чисел - > ') ; Readln (n) ;

Writeln ('Тeперь вводите сами числа') ;

p:=1; f:=false; ff:=false;

for i:=1 to n do

begin

Read (k) ;

f: = ((k<0) and ((k mod 2) 0)) ;

ff: = (ff or f) ;

if f then p:=p*k

end;

if ff then Writeln ('Произведение нечетных отрицательных чисел: ', p)

else Writeln ('Не было введено ни одного отрицательного нечетного числа')

end.

Тестовое решение:

Введите количество чисел - > 10

Тeперь вводите сами числа

5 - 7 16 0 - 3 4 - 6 2 1 8

Произведение нечетных отрицательных чисел: 21