36

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

xasvegas 19 апреля 2023

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

категория: информатика

58

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.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...