// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! function dist2(a,b: real): =a*a+b*b; // квадрат расстояния до точки begin var n: =readinteger('n='); var a: =seqrandom(2*n,-999,999).select(t-> t/10).toarray; a.println; var r: =0.0; var d: real; for var i: =0 to n-1 do begin d: =dist2(a[i],a[i+1]); if d> r then r: =d end; writeln('минимальный радиус равен ',sqrt(r): 0: 3) end. пример n= 15 41.4 57.5 -70.6 98.5 31 76 4.7 98.3 74 -8.1 -85.2 -73.3 39.1 -27.2 41.3 -91.8 -20.5 60.9 38.4 -89.2 77.5 -62 68.8 -6.4 85.4 96.9 49.2 -64 65.6 99.5 минимальный радиус равен 123.040