profile
Опубликовано 5 лет назад по предмету Информатика от zorrokot

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

  1. Ответ
    Ответ дан Yegor55

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

Самые новые вопросы