Даны 3 числа: a,b,c. Определить среднее арифметическое двух не максимальных чисел. Позязя^^
Answers & Comments
fikort
Var a,b,c:integer; s:real; begin read(a,b,c); if (a>b)and (a>c) then s:=(b+c)/2else if (c>a)and (c>b) then s:=(b+a)/2 else if (b>a)and (b>c) then s:=(a+c)/2; writeln(s); end.
Answers & Comments
a,b,c:integer;
s:real;
begin
read(a,b,c);
if (a>b)and (a>c) then
s:=(b+c)/2else
if (c>a)and (c>b) then
s:=(b+a)/2
else
if (b>a)and (b>c) then
s:=(a+c)/2;
writeln(s);
end.