Дан массив из 20 чисел. найти среднее арифметическое. найти ...

Женя

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. Может что-то путаю.