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

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

Question

Гортензия

20 февраля, 21:40

+5

Ответы (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 чисел. составьте программу, которая определяет произведение отрицательных среди введенеых чисел