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

Question

Информатика

Мага

30 августа, 14:30

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

+1

Ответы (1)

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

Парфён · Answer 1

Var a:array[1 ... 10000] of longint;

i, n, k:longint;

begin

readln (n) ;

for i:=1 to n do

read (a[i]) ;

k:=1;

for i:=1 to n do

if a[i]<0

then

k:=k*a[i];

writeln (k) ;

readln

end.