даны два числа a b найти среднее арифметическое

Question

даны два числа a b найти среднее арифметическое

Answer 1

PascalABC

var
a,b:real;
begin
readln (a,b);
writeln ('среднее арифметическое = ', (a+b)/2);
readln;
end.

 

Answer 2

среднее арифметическое:

(a+b)/2