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

Question

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

ЯЗЫК:PASCAL

Comments

какой язык?

---

pascal

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.