Question

Даны числа b1, b2, …, b9. Определите среднее арифметическое тех из них, которые
больше 10
C#

Answer 1

Ответ:

var a,b,c,d:integer;

begin

writeln('введите 9 чисел ');

d:=9;

b:=0;

while (d<>0) do begin

read(a);

if (a>10) then begin b:=a+b; c:=c+1;end;

d:=d-1;

end;

writeln('среднее арифметическое ',b/c);

end.