Умоляю помогите!! найти произведение всех элементов массива вещественных чисел, меньших...

Question

Умоляю помогите!!

найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива -10. Заполнение массива осуществить случайными числами от 50 до 100

Answer 1

const n=10;

var a:array[1..N] of real;

i:integer;

x:real;

begin

randomize;

for i := 1 to n do

a[i] := random (100)-50;

readln(x);

for i:=1 to n do

if a[i]>x then p:=p*i;

writeln(p);

end.