Помогите сделать программу pascal. В одномерном массиве с четным количеством элементов...

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.

Comments

PascalABC.NET, указали б версию, ну

---

http://pascalabc.net/WDE/ Вот, тут проверить можно, если есть сомнения

---

Я не про программу, а про синтаксис, радиус выдаёт и оки

---

Если нужно, подгоните под себя: убрать присваивание при объявлении, заменить тип byte на integer или word и i += 2 заменить на i := i + 2
Повторюсь: если необходимо, ибо иначе было бы глупо ._.