{* Задача 88 *}

Unit ZADACH88;
Interface
Implementation
Begin
 writeln('m и n - натуральные числа, m<=n. Найти среднее арифметическое чисел a[1],... , a[m-1], a[m+1],... , a[n] (всех, кроме a[m]).');
End.

Program zadach88;

Uses zadach88.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Const {* Предопределенные *}
  max = 20;
Var {* Объявление переменных *}
  a : Array[1..max] Of real;
  i : byte;
  l : byte;
  s : real;
Begin
  ClrScr; {* Очищаем экран *}
  Randomize;
  For i := 1 To max Do {* Увеличиваем i от 1 до max с шагом 1 *}
  Begin
    a[i] := Random * max;
    Writeln(a[i] : 15 : 7);
  End;
  Write('l=...');
  Readln(l);
  s := 0.0;
  For i := 1 To max Do {* Цикл для i => [1 .. max] *}
    If il Then
      s := s + a[i];
  s := s / (max - 1);
  Writeln('Среднее арифметическое всех чисел, кроме ', l, ' равно ', s : 15 : 7);
End.