Question

1. Найти среднее арифметическое трёх чисел, если среднее арифметическое больше 5 на экран выдать сумму.

Answer 1

program sr;

var x, y: real;

var i: integer;

begin

 for i:= 1 to 3 do

 begin

   readln(x);

   y := y + x;

 end;

 y := y / 3;

 if y > 5 then

   writeln(y)

end.

Answer 2

Для решения данной задачи нам необходимо найти среднее арифметическое трех чисел и проверить, больше ли оно 5. Если среднее арифметическое больше 5, то на экран нужно вывести сумму этих трех чисел.

Допустим, у нас есть три числа a, b и c. Чтобы найти их среднее арифметическое, нужно сложить эти числа и поделить полученную сумму на 3:

Среднее арифметическое = (a + b + c) / 3

Далее, мы должны проверить, больше ли среднее арифметическое 5. Если да, то нужно вывести сумму трех чисел на экран:

Если Среднее арифметическое > 5: Сумма = a + b + c Вывести Сумма на экран

Если Среднее арифметическое <= 5: Вывести "Среднее арифметическое меньше или равно 5" на экран

Таким образом, мы найдем среднее арифметическое трех чисел и, если оно больше 5, выведем их сумму на экран.