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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
