Паскаль.
С клавиатуры вводится 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