ТутРешу.Ру

Умоляю помогите! Найти произведение всех элементов массива…

Задание:

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




Знаете другой ответ?

Отправить свой ответ