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

Question

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

Comments

Английский

---

о гспд, именно

---

паскаль?

---

си++

---

джава?

---

Да

---

что именно

---

Да )))

---

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

---

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

Answer 1

Const
  n=27;

var
  i,t:integer;
  p:real;

begin
  p:=1;
  for i:=1 to n do begin Read(t); if t<0 then p:=p*t end;<br>  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

Answer 2

1 П0 0 П4 С/П x<0 10 ИП0 * П0 КИП4 ИП4 2 7 - x=0 04 ИП0 Сx С/П<br>
Инструкция: В/О С/П число_1 С/П число_2 С/П ... число_27 С/П.
После получения 27-го числа на индикаторе результат.