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

Question

Информатика

Сереня

18 марта, 08:49

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

+4

Ответы (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.