Question

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

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.