Помогите сделать программу pascal. В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в сле дующем порядке: x1y1х2, у2, х3, у3, и т. д. Определить минимальный ради...
Помогите сделать программу pascal. В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в сле дующем порядке: x1y1х2, у2, х3, у3, и т. д. Определить минимальный радиус круга с центром в начале координат, который содержит все точки"
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы