{* Поиск среднего арифметического в массиве *}

Unit SAMPLE012;
Interface
Implementation
Begin
 writeln('Поиск среднего арифметического в массиве');
End.

Program pas;

Uses sample012.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : Array[1..10] Of integer;
  s : longint;
  i : integer;
  n : integer;
Begin
  s := 0;
  n := 0;
  writeln('введите 10 элементов массива');
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
  Begin
    readln( a[i] );
    s := s + a[i];
    inc(n); {* Увеличиваем n на 1 *}
  End;
  writeln( 'Среднее арифметическое в массиве = ', s / n );
End.