Найти среднее арифметическое наибольшего и наименьшего элементов данной конечной числовой последовательности. - Pascal ABC
Формулировка задачи:
Написать программу для решения следующей задачи: найти среднее арифметическое наибольшего и наименьшего элементов данной конечной числовой последовательности.
Решение задачи: «Найти среднее арифметическое наибольшего и наименьшего элементов данной конечной числовой последовательности.»
textual
Листинг программы
var n,i:integer; a,mn,mx,sr:real; begin write('Введите n>1 n='); readln(n); writeln('Введите ',n,' чисел'); for i:=1 to n do begin readln(a); if i=1 then begin mx:=a; mn:=a; end else if a<mn then mn:=a else if a>mx then mx:=a; end; sr:=(mn+mx)/2; write('Минимум=',mn:0:2,' максимум=',mx:0:2,' их средне арифметическое=',sr:0:2) end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д