Из 27 целых чисел,заданных с клавиатуры ,найти произведение отрицательных частей.

Британский

о гспд, конкретно

паскаль?

си++

джава?

Да

что конкретно

Да )))

" Национальность? Да, сказал Кацман и хихикнул."(А и Б. Стругацкие. "Град обреченный")

Вот-вот =) Пусть хавает на языке МК-61.

1 П0 0 П4 С/П xlt;0 10 ИП0 * П0 КИП4 ИП4 2 7 - x=0 04 ИП0 Сx С/П

Аннотация: В/О С/П число_1 С/П число_2 С/П ... число_27 С/П.
После получения 27-го числа на индикаторе итог.

Const
  n=27;

var
  i,t:integer;
  p:real;

begin
  p:=1;
  for i:=1 to n do begin Read(t); if tlt;0 then p:=p*t end;
  Writeln('Творение отрицательных элементов одинаково ',p)
end.

Пример
-12 35 -98 -15 36 -40 -95 -12 -57 40 66 -53 -44 23 -2 67 -28 59 -74 -97 -65 -13 -47 94 12 18 -52
Творение отрицательных частей одинаково -8.87597799232315E+25