даны две тройки вещественных чисел. Найти среднее арифметическое максимумов каждой тройки P.S писать программу на базе PaskalABC.NET
Answers & Comments
clinteastwood2// 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
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
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