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.