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