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

Question

Информатика

Ана

15 сентября, 16:05

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

+5

Ответы (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.