Дан массив из 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. Может что-то путаю.