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

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

Question

Информатика

Исай

16 июня, 04:22

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

найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива - 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.