Даны две тройки вещественных чисел. Найти среднее арифметическое максимумов каждой тройки P.S писать программу на базе PaskalABC.NET
Даны две тройки вещественных чисел. Найти среднее арифметическое максимумов каждой тройки
P.S
писать программу на базе PaskalABC.NET
Гость
Ответ(ы) на вопрос:
ГостьВроде как-то так:
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.
Гость// 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
Не нашли ответ?
Похожие вопросы