Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски
Type LinMass = Array[1..100] Of Integer;
Var A : LinMass; N, i, max, min : Integer;
begin
Write('Количество элементов массива? '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[I]);
End;
max:=1; min:=__;
For I := 2 To N Do
begin
if a[i]>a[max] then max:=i;
if a[i] end;
writeln('Ответ ', (a[max]__a[min])/2 :7:2)
end.

в строке max:=1; min:=a[1]; Так как следующий за этой записью цикл начинается со 2 элемента. А так все верно.