Кто печатает документы на принтере - исполнитель

Ко п и р а й т е р ===============

Среднее абсолютное отклонение mad = сумма (по i от 1 до n) |x(i) - ~x| / n программа sredx = 0 for i = 1 to n     sredx = sredx + x(i) next i sredx = sredx / n ' посчитали среднее арифметическое ~x mad = 0 for i = 1 to n     mad = mad + abs(x(i) - sredx) next i mad = mad / n ' посчитали среднее абсолютное отклонение среднее квадратическое отклонение mqd = sqrt(сумма (по i от 1 до n) (x(i) - ~x)^2 / n) программа mqd = 0 for i = 1 to n     mqd = mqd + (x(i) - sredx)^2 next i mqd = (mqd / n)^(1/2) ' посчитали среднее квадратическое отклонение otnos = mqd / mad ' посчитали отношение квадратического к абсолютному среднее арифметическое из средних абсолютных отклонений поддиапазонов посчитай mad в каждом поддиапазоне отдельно, а потом среднее арифметическое, как в цикле sredx.

program raf105;

var

  a,i,n,c: integer;

  x,x2: boolean;

begin

  write('введите количество чисел: ');

  readln(n);

  writeln('вводите ',n,' чисел по очереди');

  readln(a);

  if a > = 0

    then x2: = true

    else x2: = false;

  for i: =2 to n do

  begin

    readln(a);

    if a > = 0

      then x: = true

      else x: = false;

    if x < > x2

      then c: = c+1;

    x2: = x;

  end;

  writeln('количество изменений знака: ',c);

end.

pascalabc 3.4.2