Дан массив из 20 чисел. найти среднее арифметическое. найти наименьший элемент методом бинарного поиска. (pascal)

var

  m : array [1..20] of Integer;

  s : Real;

  i : Integer;

begin

  s := 0;

  for i := 1 to 20 do

    s := s + m[i];

  s := s / 20;

  Writeln('Cреднее арифметическое = ', s:0:3);

end.

2.

Насколько я знаю, для бинарного поиска нужно отсортировать массив, но если он отсортирован, то наименьший элемент будет 1. Может что-то путаю.