Задание:
Умоляю помогите! Найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива -10. Заполнениемассива осуществить случайными числами от 50 до 100
Решение:
const n=10; var a: array[1… N] of real; i: integer; x: real; beginrandomize; for i: =1 to n doa[i]: =random (100) -50; readln (x); for i: =1 to n doif a[i]>x then p: =p*i; writeln (p); end.
Знаете другой ответ?