Question

нужно вычислить среднее арифметическое двух вещественных чисел, если можно программу

Answer 1

Program pr; Var a, b:real; Write('Введите A: ') ; Readln(a) ; Write('Введите B: ') ; Readln(b) ; Writeln('Среднее арифметическое: ',(a+b)/2); End.

Answer 2

числа могут быть и дробными

Answer 3

Это учтено. Поэтому a и b переменные вещественного типа, то есть real. Кстати, исправьте последнюю строчку на: Writeln('Среднее арифметическое: ', (a+b)/2:0:2); иначе вывод будет не тот.