Даны две тройки вещественных чисел. Найти среднее арифметическое максимумов каждой тройки...

Question

Даны две тройки вещественных чисел. Найти среднее арифметическое максимумов каждой тройки
P.S
писать программу на базе PaskalABC.NET

Answer 1

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m1:=ReadSeqReal('Первая тройка:',3).Max;
  var m2:=ReadSeqReal('Вторая тройка:',3).Max;
  Writeln('Среднее арифметическое максимумов равно ',(m1+m2)/2)
end.

Пример
Первая тройка: 5.2 7.4 6.1
Вторая тройка: -4.2 5 7
Среднее арифметическое максимумов равно 7.2

Answer 2

Вроде как-то так:
var   a1,a2,a3,a4,a5,a6:real;
function sr(a1,a2,a3:real):real;
begin  
if ((a1<=a2) and (a1>=a3)) or ((a1<=a3) and (a1>=a2)) then sr:=a1
else  
if ((a3<=a2) and (a3>=a1)) or ((a3<=a1) and (a3>=a2)) then sr:=a3
else    
sr:=a2;
end;
begin  
write('Введите две тройки чисел:');  
readln(a1,a2,a3,a4,a5,a6);  
writeln('Среднее арифметическое 2-х средних чисел =',(sr(a1,a2,a3)+sr(a4,a5,a6))/2:0:4);
end.