Улан Чыйбылов
Срочно! Ввести N чисел. Найти произведение отрицательных чисел. Паскаль.
прога
прога
program q171375212;
var
i, n, x, p: integer;
begin
Write('N = ');
ReadLn(n);
p := 1;
for i := 1 to n do
begin
ReadLn(x);
if x < 0 then
p := p * x;
end;
WriteLn('Ответ: ', p);
ReadLn;
end.
r = 1; n.times do n=gets; if (n < 0) r *= n; end;