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

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

Question

Информатика

Викентий

26 июня, 08:19

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

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

+3

Ответы (1)

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

Фёдор · 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.