помогите составить программу в Паскаль по задаче:
найти среднее арифметическое наибольшего и наименьшего элементов в одномерном массиве
БЕЗ РАНДОМА!!!
найти среднее арифметическое наибольшего и наименьшего элементов в одномерном массиве
БЕЗ РАНДОМА!!!
More Questions From This User See All
Answers & Comments
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ReadArrInteger('Вводите элементы массива:', n);
Println('Результат:', (a.Max + a.Min) / 2)
end.