Конспект лекций по программированию для начинающих. Гладков В.П. - 191 стр.

                                     193

      write('Введите количество результатов опроса ');
      readln(n);
      write('Введите ',n,' результатов опроса ');
      as := 0;
      for i:=1 to n do
      begin read(a[i]);
              as := as+a[i]
      end;
      as := as/n; { Найдено среднее арифметическое значение }
      m := 0;
      for i:=1 to n do
              if (0.93*as<=a[i]) and (a[i]<=1.07*as)
              then m := m+1;
      write('результат равен ',m)
   end.
   Пример 11.55. В массиве хранятся данные о расходе электроэнергии в
больнице. Найти:
   - среднемесячный расход;
   - минимальный и максимальный расход;
   - количество дней с расходом, превышающим средний.
   Решение. Решение получается как комбинация известных решений.
   program task11_55;
   var        a : array [1..30] of real; { расход энергии за месяц }
              i,j : integer; { индексы массива }
              as : real; { среднемесячный расход }
              max,min : real; { max и min элементы массива }
              n : integer; { количество дней с расходом, превышающим средний }
   begin
      write(' Введите ежедневные данные о расходе ',
              'электроэнергии за месяц ');
      for i:=1 to 30 do read(a[i]);
      { среднемесячный расход }
      as := 0;
      for i:=1 to 30 do as := as+a[i];
      as := as/30;
      { max и min расход }
      max := a[1]; min := a[1];
      for i:=2 to 30 do
      begin if max < a[i] then max := a[i];
              if min > a[i] then min := a[i]
      end;
      { количество дней с расходом, превышающим средний}
      n := 0;
      for i:=1 to 30 do
      if a[i]>as then n := n+1;
      writeln('результаты: ',as,max,min,n)