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

Есть легенда ,что при римской империи,что бы посетить императора для прошения чего-либо,простолюдину нужно было принести дар императору. мария магдалина, когда пришла к императору тиберию о том, что бы сообщить ему благостную весть о воскресении иисуса христа ничего при себе не имела,кроме белого яйца.тогда император сказал: "я поверю тебе если это белое яйцо станет красным"! совершилось чудо яйцо туже секунду мгновенно покраснело,тогда мария магдалина протянула красное яйцо императору и сказала  "христос воскрес" ! император тиберий принял яйцо провозгласил о чуде в словах  "воистину воскрес" так сказать,  отсюда и пошло как обычай красить яйца на пасху.

1) вводить три равных натуральных числа - треугольник равносторонний. результат программы true ⇒ программа работает корректно 2) вводить три неравных натуральных числа - треугольник не равносторонний. результат программы false ⇒ программа работает корректно 3) ввести три нуля - треугольник не существует. результат программы true ⇒ программа работает некорректно 4) вводить три равных отрицательных числа - треугольник не существует. результат программы true ⇒ программа работает некорректно 5) ввести три равных или неравных вещественных числа - треугольник существует. результата программы нет (ошибка типов) ⇒ программа работает некорректно