var N,rt,dist,i,j: integer; f,g: text; a,b: array[1..360] of integer; begin assign (f,'C:\In.txt'); reset (f); read (f,N); { считали число точек} for i:=1 to N do read(f,a[i]); {считали углы для точек} close (f); { вычисление расстояний и занесение в массив b } for i:=1 to N do begin rt:=a[i]; {угол для текущей точки } dist:=0; for j:=1 to N do begin if ((a[j]>rt) and (a[j]-rt>180)) then dist:=dist+360-a[j]+rt else if ((a[j]>rt) and (a[j]-rt<180)) then dist:=dist+a[j]-rt else if ((a[j]180)) then dist:=dist+360-rt+a[j] else if ((a[j] 0 then writeln(g,i); close (g); writeln('минимальное расстояние = ',dist); writeln('число точек = ',j); end.