Эта программа может выглядеть так:
uses Crt;
const n=20;
type Mas=array [1..n] of integer;
var A: Mas;
i, Sum, Col, Sred: integer;
begin
ClrScr;
Randomize;
Sum:=0;
for i:=1 to n do
begin
A[i]:=-10+random(26);
Write (A[i]:4);
Sum:=Sum+A[i];
end;
WriteLn;
Sred:=Sum div n;
WriteLn('Srednee:',Sred:4);
Col:=0;
for i:=1 to n do
if A[i]=Sred then Col:=Col+1;
WriteLn('Col=', Col);
ReadLn;
end.
Марс - 80 05 90 93
морс - 80 84 90 93
барс - 10 05 90 93
пирс - 87 62 90 93
Главный параметр – номинальный диаметр резьбы d. Как видно из формул под рисунком, в чертеже болта на него «завязаны» практически все построения, причем все зависимости прямо пропорциональные, т.е. некоторые элементы чертежа можно просто масштабировать пропорционально диаметру резьбы. От диаметра резьбы прямо пропорционально зависят все размеры головки болта, поэтому ее можно масштабировать в зависимости от d. Также от d формально зависит фаска c, но мы привяжем ее к другому параметру – шагу резьбы.
1)Б
2)или А или Г
3)В
4)Б
9)
10)А
8)А
7)А
6)А
5) или А или В