{* Задача 370 *}

Unit ZADACH370;
Interface
Implementation
Begin
 writeln('Написать подпрограмму вычисления среднего арифметического значения вещественных чисел. В основной программе определить сколько из m вещественных чисел меньше их среднего арифметического');
End.

Program pas13556;
unit dmod;
interface
Type {* Типы переменных *}
  vec = Array[1..100]Of integer;
Function sr(n : integer;
x : vec) : real;
implementation
Function sr;
Var {* Необходимые переменные *}
  s : real;
  i : integer;
Begin
  s := 0;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    s := s + i;
  End;
  sr := s / n;
End;

  End..