program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

const
    minSize = 2;
    maxSize = 100;
    minEl = -100;
    maxEl = 100;
var
    i, size, closeind, sum: integer;
    close, average: real;
    isCorrect: boolean;
    mass: array of integer;

begin
    Writeln('Данная программа находит индекс элемента в последовательности, который отличается от среднего арифметического значения элементов последовательности на минимальную величину.');
    isCorrect := false;
    repeat
        Writeln('Введите размер последовательности от ', minSize, ' до ', maxSize,':');
        try
            Readln(size);
            if (size > minSize) and (size < maxsize) then
                isCorrect := true
            else
                Writeln('Ошибка ввода. Повторите попытку.');
        except
            Writeln('Ошибка ввода. Повторите попытку.');
        end;
    until isCorrect;
    SetLength(mass, size);
    for i := 0 to (size - 1) do
    begin
        repeat
            Writeln('Введите элемент массива под индексом ',i,' (целое число  от ', minEl ,' до ', maxEl,'):');
            try
                readln(mass[i]);
                if (mass[i] > minEl) and (mass[i] < maxEl) then
                    isCorrect := true
                else
                    Writeln('Ошибка ввода. Повторите попытку.');
            except
                Writeln('Ошибка ввода. Повторите попытку.');
        end;
        until isCorrect;
    end;
    sum := 0;
    for i := 0 to size - 1 do
        sum := sum + mass[i];
    average := sum / size;
    for i := 0 to size - 1 do
    begin
        if abs(mass[i] - average) < close then
        begin
            close := abs(mass[i] - average);
            closeind := i;
        end;
    end;
    Writeln('Индекс элемента: ', closeind);
    Readln;
    end.