написать программу в которой нужно ввести два числа и вывести среднее арифметическое этих чисел на экран используя функцию нахождения среднего арифметического

Ответ:

program z1;

function SA(var a,b:real):real;

begin

SA:=(a+b)/2

end;

var a,b:real;

begin

read (a,b);

write (SA(a,b))

end.

Объяснение:

Функция получает 2 числа и считает их среднее арифметическое

Ввод 2 чисел

Вывод результата работы функции