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

Question

Информатика

Моря

7 марта, 00:17

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

+3

Ответы (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.