const n=21;
var a:array[1..n] of integer;
sr:array[1..3] of real;
k,s,i,j:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(11);
write(a[i],' ');
end;
writeln;
k:=n div 3;
for j:=0 to 2 do
begin
s:=0;
for i:=1 to k do s:=s+a[j*k+i];
sr[j+1]:=s/k;
end;
for j:=1 to 3 do write(sr[j]:4:2,' ');
end.
Пример:
3 5 9 10 10 7 7 3 2 10 3 6 5 10 1 7 8 6 9 5 6
7.29 5.57 6.00
1. ВАР
2. ЖАР
3. РОГ
4. ХОД
5. БОР
6. ГОН
7. БЕГ
8. ___
9. КОС
10. МОЛ
<em>Алгоритм деления отрезка AB пополам:</em>
<span>1) поставить ножку циркуля в точку А;</span>
<span>2) установить раствор циркуля равным длине отрезка АВ;</span>
<span>3) провести окружность;</span>
<span>4) поставить ножку циркуля в точку В;</span>
<span>5) провести окружность;</span>
<span>6) через точки пересечения окружностей провести прямую;</span>
<span>7) отметить точку пересечения этой прямой с отрезком АВ.</span>
<span>
</span>
<span>Было у нас такое на зачете :D</span>
270 получается потому In=3умножить на 8 и на 18!вот и ответ !