С клавиатуры вводится число N, а затем N чисел. Найти произведение отрицательных.

Question

Информатика

Фотинья

24 сентября, 04:41

С клавиатуры вводится число N, а затем N чисел. Найти произведение отрицательных.

+3

Ответы (1)

Знаешь ответ?

Катеринка · Answer 1

Program Ok;

var a, i, n, proiz:integer;

begin

readln (N);

proiz:=1;

for i:=1 to n do

begin

read (a);

if (a<0) then

proiz:=proiz*a;

end;

write (proiz);

end.