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

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

Question

Гортензия

23 марта, 01:56

+3

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