Найти среднее арифметическое наибольшего и наименьшего элементов данной конечной числовой последовательности. - 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.

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы