Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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