Количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах. - Turbo Pascal

Формулировка задачи:

Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.

Код к задаче: «Количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах. - Turbo Pascal»

textual
var
  i,n,m:integer;
  a:array [1..100] of real;
  X, pr: real;

7   голосов, оценка 3.571 из 5


СОХРАНИТЬ ССЫЛКУ