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

Question

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

Answer 1

58

modps

12 сентября 2022

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.

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: