Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Пожалуйста помогите, на паскале
В одномерном массиве с четным количеством элементов (2N) находятся ко-
ординаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, x2, y2,
x3, y3 и т.д. Определить точку, расстояние от которой до начала координат является
наибольшим.

Ответ оставил Гость

Const
  n=10;
var
  xy:array[1..2*n] of real;
  Lmax,L:real;
  i,imax:integer;
begin
  Randomize;
  Writeln(Координаты точек);
  Lmax:=0;
  for i:=1 to n do
  begin
    xy[2*i-1]:=101*Random-50; { случайное число на [-50..50] }
    Write(i:2,xy[2*i-1]:8:3);
    xy[2*i]:=101*Random-50;
    Writeln(xy[2*i]:8:3);
    L:=sqr(xy[2*i-1])+sqr(xy[2*i]);
    if Lmax  end;
  Writeln(Наиболее удалена от начала координат);
  Writeln(точка A[,imax,] (,xy[2*imax-1]:0:3,,,xy[2*imax]:0:3,),);
  Writeln(расстояние составляет ,sqrt(Lmax):0:3)
end.

Тестовое решение:
Координаты точек
 1  -7.758 -12.799
 2  14.569  -5.722
 3 -20.827   2.768
 4  16.387  35.180
 5  43.135 -17.903
 6  42.006  11.257
 7  40.026  -4.777
 8 -32.236  33.900
 9 -13.453  45.271
10   8.171   7.245
Наиболее удалена от начала координат
точка A[9] (-13.453,45.271),
расстояние составляет 47.227