Помогите сделать программу pascal. В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в сле дующем порядке: x1y1 х2, у2, х3, у3, и т. д. Определить минимальный радиус круга с центром в начале координат, который содержит все точки"

Question

Информатика

Виленина

6 апреля, 10:38

Помогите сделать программу pascal. В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в сле дующем порядке: x1y1 х2, у2, х3, у3, и т. д. Определить минимальный радиус круга с центром в начале координат, который содержит все точки"

+5

Ответы (1)

Знаете ответ на вопрос?

Маргаритка · Answer 1

const

n = 5;

var

arr: array [1 ... 2*n] of integer : = (0,1, - 2,1, - 1,-1, 1,2, - 3,0) ;

i: byte : = 1;

maxr: real;

begin

repeat

maxr : = max (sqrt (sqr (arr[i]) + sqr (arr[i + 1])), maxr) ;

i + = 2;

until (i > 2 * n - 1) ;

writeln (maxr) ;

end.