C клавиатуры вводятся 30 чисел. Найти произведение положительных чисел.

Question

Информатика

Савина

1 августа, 21:27

C клавиатуры вводятся 30 чисел. Найти произведение положительных чисел.

+1

Ответы (1)

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

Татуня · Answer 1

Var a, b, c:integer;

begin

writeln ('введите 30 чисел') ;

readln (a) ;

b:=1;

c:=1;

while b30 do begin

if a > 0 then c:=a*c;

readln (a) ;

b:=b+1;

end; writeln ('ответ ', c) ;

end.