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);
<span>end.</span>
Если убрать во writeln лишнюю закрывающую скобку, то на экране будет выведено
n=6p=96
1 цикл. 1*1=1
2 цикл. 1*2=2
3цикл.2*3= 6
ответ. 6
B=4
a=3
b=<span>7-2*a-b=7-2*3-4=7-6-4=-3
a=b/3-a=-3/3-3=-1-3=-4
ответ:a=-4
b=-3</span>
1. Компьютер
2. Данные
3. Информатика