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

Question

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

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.