---

program Variant5_Task1_Arrays;
var
  a, b, i, sum, count: integer;
  numbers: array of integer; // Использование динамического массива
begin
  write('Вprogram Variant5_Task2;
var
  n, i: integer;
  sum: real;
  r: array of real; // Массив вещественных чисел
  average: real;
begin
  write('Введите количество элементов массива n: ');
  readln(n);
  
  if n <= 0 then
  begin
    writeln('Количество элементов должно быть больше 0.');
    exit;
  end;
  
  SetLength(r, n);
  
  // Ввод элементов массива
  writeln('Введите ', n, ' элементов массива:');
  for i := 0 to n - 1 do
  begin
    write('r[', i + 1, '] = ');
    readln(r[i]);
  end;
  
  // Подсчет суммы элементов
  sum := 0;
  for i := 0 to n - 1 do
    sum := sum + r[i];
    
  // Вычисление среднего арифметического
  average := sum / n;
  
  writeln('Среднее арифметическое элементов массива равно: ', average:0:4);
end.