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