Составить программу определения максимального расстояния между двумя точками из некоторой совокупности точек трехмерного пространства - Turbo Pascal - Ответ 3164310

const
  nmax=100;
  m=3;
type
  tArr=array[1..nmax,1..m] of integer;
  
procedure init(n1: integer; var ar: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
  begin
    write('Координаты ',i,'-й точки: (');
    for j:=1 to m do
    begin
      ar[i,j]:=random(19)-9;
      write(ar[i,j]:4);
    end;
    writeln(')');
  end;
  writeln;
end;
 
procedure space(n: integer; var ar: tArr);
var i,j,i_k,j_k: integer;
  s,max: real;
begin
  for i:=1 to n-1 do
  begin
    for j:=i+1 to n do
    begin
      s:=sqrt(sqr(ar[i,1]-ar[j,1])+sqr(ar[i,2]-ar[j,2])+sqr(ar[i,3]-ar[j,3]));
        if s>max then 
          begin
            max:=s;
            i_k:=i;
            j_k:=j;
          end;
    end;
  end;
  writeln('Самые удаленные точки: ',i_k,' и ',j_k);
  writeln('Максимальное расстояние между точками: ',max:6:2);
end;
 
var
  n: integer;
  a: tArr;
begin
  write('Введите количество точек пространства: ');
  readln(n);
  init(n,a);
  space(n,a);
  readln;
end.