Сравнить среднее арифметическое четырех чисел с полусуммой наи-большего и наименьшего

Шарик

Сравнить среднее арифметическое четырех чисел с полусуммой наибольшего и наименьшего.
1 ответ

Шарик

const n = 4;
type
  mas = array[1..n] of integer;
function min(a:mas):integer;
var
  i:integer;
begin
  min:=a[1];
  for i:= 2 to n do
  if min<a[i] then min:=a[i];
end;
 
function max(a:mas):integer;
var
  i:integer;
begin
  max:=a[1];
  for i:= 2 to n do
  if max>a[i] then max:=a[i];
end;
 
var
  ch:mas;
  s,ps:real;
  i:integer;
begin
  for i:= 1 to n do begin
    readln(ch[i]);
    s:=s+ch[i];
  end;
  s:=s/n;
  ps:=0.5*(min(ch)+max(ch));
  if s > ps then writeln('sr.arif = ',s:4:2,' > polusummi ',ps:4:2)
  else if s<ps then writeln('polusumma = ',ps:4:2,' > sr.arif = ',s:4:2)
  else writeln('polusumma = sr.arif = ',s:4:2);
end.