Сформировать массив из случайных чисел диапазона [0;37]. Затем значения первого и последнего элементов массива поменять местами и вывести полученный массив так, чтобы между элементами стоял один пробел. pascal

pascal

Объяснение:

var

 i, n: integer;

 a: array of real;

 k: real;

begin

 Write('Введите размер массива n >> ');

 ReadLn(n);

 SetLength(a, n);

 for i := 0 to n - 1 do

   a[i] := random(37);

 k := a[0];

 a[0] := a[n - 1];

 a[n - 1] := k;

 for i := 0 to n - 1 do

    Write(a[i]:2:1,' ');

end.