Что нужно знать перед установкой WordPress? ​

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

function Dist2(a,b:real):=a*a+b*b; // квадрат расстояния до точки

begin
  var n:=ReadInteger('n=');
  var a:=SeqRandom(2*n,-999,999).Select(t->t/10).ToArray;
  a.Println;
  var r:=0.0;
  var d:real;
  for var i:=0 to n-1 do begin
    d:=Dist2(a[i],a[i+1]);
    if d>r then r:=d
    end;
  Writeln('Минимальный радиус равен ',Sqrt(r):0:3)
end.

Пример
n= 15
41.4 57.5 -70.6 98.5 31 76 4.7 98.3 74 -8.1 -85.2 -73.3 39.1 -27.2 41.3 -91.8 -20.5 60.9 38.4 -89.2 77.5 -62 68.8 -6.4 85.4 96.9 49.2 -64 65.6 99.5
Минимальный радиус равен 123.040

Пройдемся по коду: Возможно я не понял суть вашего ввода массива, но в циклах вы явно указывали не те размеры что надо.

Пропущены операторные скобки "main" раздела.

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

-----------

Исправил все синт. ошибки, добавил вывод массива с сортировкой, исправил директивы.

#include <iostream>

int main()

{

int a[][2] = { 2,6,1,9,5,7,0,10};

for (int i = 0; i < 4; i++)

 if (i % 2 == 0) {

  for (int k = 0; k < 2 - 1; k++)

   for (int j = 0; j < 2 - 1; j++)

    if (a[i][j] > a[i][j + 1])

     std::swap(a[i][j], a[i][j + 1]);

 }

 else

  for (int k = 0; k<2 - 1; k++)

   for (int j = 0; j<2 - 1; j++)

    if ( a[i][j]<a[i][j + 1] )

     std::swap(a[i][j], a[i][j + 1]);

// Вывод результата

for (int i = 0; i < 4; i++) {

 for (int j = 0; j < 2; j++)

  std::cout << a[i][j] << " ";

 std::cout << std::endl;

}

return 0;

}

Кривое оформление сайта.. (в приложении код)