Количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах. - Turbo Pascal
Формулировка задачи:
Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.
Решение задачи: «Количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.»
textual
Листинг программы
var i,n,m:integer; a:array [1..100] of real; X, pr: real;