Pascal Массив

[Денис999]

Пожалуйста помогите кто может.
1. N точек на плоскости заданы своими координатами. Определить точку, максимально удаленную от начала координат.

[p51x]

Чем вам помочь? Не знаете как найти максимум из Н значений?

[Serge_Bliznykov]

maxPointIndex := 0;
MaxDistance := -1;
for i:=1 to N do begin
  Distance := SQRT(sqr(Massiv[i].X)+sqr(Massiv[i].Y));
  if Distance> MaxDistance then begin
     maxPointIndex := i;
     MaxDistance := Distance;
  end;
end;
Writeln('Максимально удалена точка ',maxPointIndex);