Найти длину наибольшей диагонали выпуклого многоугольника, заданного координатами своих вершин. в

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! type   point=(real,real); function readpoint(n: integer): point; begin   var a,b: real;   write('координаты точки ',n,': '); read(a,b);   result: =(a,b) end; function getpoints(n: integer): array of point; begin   result: =new point[n];   for var i: =0 to n-1 do result[i]: =readpoint(i+1) end; function lsqr(a,b: point): =sqr(b[0]-a[0])+sqr(b[1]-a[1]); function diags(a: array of point; n: integer): array of real; begin   result: =new real[n*(n-3) div 2];   var k: =0;   for var i: =0 to n-3 do       for var j: =i+2 to min(n+i-2,n-1) do begin           result[k]: =lsqr(a[i],a[j]);           k+=1           end; end; begin   var n: =readinteger('количество вершин: ');   if n> 3 then begin       var a: =getpoints(n);       writeln('длина наибольшей диагонали равна ',sqrt(diags(a,n).max): 0: 5)       end   else writeln('диагонали отсутствуют') end. пример количество вершин: 5 координаты точки 1: -3 2.5 координаты точки 2: 3 5.2 координаты точки 3: 6.1 1 координаты точки 4: 2 -7.3 координаты точки 5: -5 -7 длина наибольшей диагонали равна 14.58904

А ты типо не понимаешь? Не хватает кое чего?

Объяснение: