[@Настя394]

Составить алгоритм нахождения произведения только отрицательных из вводимых с клавиатуры вещественных чисел.
Пожалуста наишите программу )

[@Puporev]

Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 var n,i,k:integer;     a,p:real; begin write('Введите количество чисел n='); readln(n); writeln('Введите ',n,' вещественных чисел'); p:=1; k:=0; for i:=1 to n do  begin   readln(a);   if a<=0 then    begin     k:=1;     p:=p*a;    end;  end; if k=0 then p:=0; writeln('Произведение отрицательных=',p:0:2); end.