Дан массив вещественных чисел x (x1? x2, ..., xn). Найти произведение положительных элементов массива и подсчитать их число.

Question

Информатика

Эма

5 декабря, 11:00

Дан массив вещественных чисел x (x1? x2, ..., xn). Найти произведение положительных элементов массива и подсчитать их число.

+1

Ответы (1)

Знаешь ответ?

Машаня · Answer 1

Const n=5;

var

x:array[1 ... n]of real;

i, k:integer;

p:real;

begin

p:=1;

for i:=1 to n do

begin

readln (x[i]);

if x[i]>0 then

begin

p:=p*x[i];

k:=k+1;

end;

end;

writeln ('p=', p);

writeln ('k=', k);

end.