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

@Шарик · Регистрация: 14.12.2011

Author24 — интернет-сервис помощи студентам

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

@Law[L]esS · 05.10.2012, 01:29

Pascal

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.

@Шарик 1 / 0 / 0 Регистрация: 14.12.2011 Сообщений: 8
		1
	Сравнить среднее арифметическое четырех чисел с полусуммой наи-большего и наименьшего 05.10.2012, 00:12. Показов 2567. Ответов 1 Метки нет (Все метки) Сравнить среднее арифметическое четырех чисел с полусуммой наибольшего и наименьшего. 0

	05.10.2012, 01:29

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

Решение