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