Нужно написать на паскале

[димон4ик]

Нужно написать на паскале

Дано m точек в n-мерном пространстве. Упорядочить точки по неубыванию их расстояний до начала координат

 

[Vladimir_S]

Дано m точек в n-мерном пространстве. Упорядочить точки по неубыванию их расстояний до начала координат

Димончик, Ваши воистину изысканные манеры просто-таки вызывают восхищение. А потому - пожалуйста (хотя зачем бы в казарме n-мерные пространства и Паскаль - не ведаю):

CONST
 n=10;
 m=12;
VAR
 X:Array[1..m,1..n] of Real;
 R:Array[1..m] of Real;
 i,j:Integer;
 Dummy:Real;

BEGIN
 For i:=1 to m do
  begin
   Writeln('Point N',i);
   R[i]:=0;
   for j:=1 to n do
    begin
     write('X[',j:2,']= ');
     readln(X[i,j]);
     R[i]:=R[i]+SQR(X[i,j]);
    end;
   R[i]:=SQRT(R[i]);
   writeln;
  end;

 For i:=1 to m do
  For j:=1 to m-i do
   If R[j]>R[j+1] then
    begin
     Dummy:=R[j];
     R[j]:=R[j+1];
     R[j+1]:=Dummy;
    end;

 For i:=1 to m do write(R[i]:8:2);
 Readln;
END.