Найти среднее арифметическое наибольшего и наименьшего элементов данной конечной числовой последовательности. - Pascal ABC

Формулировка задачи:

Написать программу для решения следующей задачи: найти среднее арифметическое наибольшего и наименьшего элементов данной конечной числовой последовательности.

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


СОХРАНИТЬ ССЫЛКУ