Составить программу.

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

Question

Витюня

18 января, 16:16

+2

Ответы (1)

Знаете ответ на вопрос?

Ваня · Answer 1

Program n1;

var a, p: real;

i: integer;

begin

p:=1;

for i:=1 to 10 do

begin

readln (a) ;

if a<0 then p:=p*a;

end;

writeln (p) ;

end.

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