Составить программу с функцией в Паскаль, которая находит среднее арифметическое двух чисел.

Для того чтобы составить программу с функцией в языке Pascal, которая находит среднее арифметическое двух чисел, можно использовать следующий код:

pascal
Копировать
program AverageCalculator;
uses crt;
function CalculateAverage(num1, num2: real): real;
begin
  CalculateAverage := (num1 + num2) / 2;
end;
var
  a, b, result: real;
begin
  clrscr;
  
  { Вводим два числа }
  writeln('Введите первое число: ');
  readln(a);
  
  writeln('Введите второе число: ');
  readln(b);
  
  { Вычисляем среднее арифметическое }
  result := CalculateAverage(a, b);
  
  { Выводим результат }
  writeln('Среднее арифметическое чисел ', a:0:2, ' и ', b:0:2, ' равно ', result:0:2);
  
  readln;
end.

Объяснение работы программы:

1. Мы создаем функцию CalculateAverage, которая принимает два аргумента (два числа типа real) и возвращает их среднее арифметическое.

2. В основном блоке программы сначала выводится сообщение с просьбой ввести два числа.

3. Затем, вызывая функцию CalculateAverage, вычисляем среднее арифметическое и выводим результат на экран.

Программа проста и понятна, а результат будет выведен с точностью до двух знаков после запятой.