{* Задача 490 *}

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

Program zadach490;

Uses zadach490.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] *}
  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.