Question

(сумма)
найти произведение элементов массива вещественных чисел, меньших заданного
числа.

Answer 1

var
  a:array[1..10]of integer;
  i,k,p:integer;
begin
for i:=1 to 10 do
  begin
  a[i]:=random(10)+1;
  write(a[i],'; ');
  end;
writeln;
write('Введите число: ');
readln(k);
p:=1;
for i:=1 to 10 do
  if a[i]<k then p:=p*a[i];
writeln('P=',p);
end.