TURBO PASCAL:Учебное пособие. Терёхин В.В. - 64 стр.

  a: array [1.. n] of Real;
  i, j : integer;
   temp: Real;
   Change: Boolean;
begin
   {ввод элементов массива}
  Writeln (' введите элементы массива, ', n, ' элементов ' ) ;
  for i := 1 to n do Read (A [i] ) ;
   {сортировка}
   j:= 0;
   repeat
       change := false;
       j := j + l;
       for i : = 1 to n - j do
       if A[i] > A[i + l] then
       begin
           change := true; {... если A[i] > A[i+l]}
                               {то элементы меняются местами}
           temp : = A [i+1] ;
           A[i+1] := A[i];
           A[i] := temp;
       end;
    {прекращаем сортировку, если не было перестановок}
   until not change;
   {выводим на экран отсортированный массив}
  for i:= I to n do Write (A [i] : 6: 2) ;
   Writeln;
end.


       18.3 Массивы с большей размерностью
       Мы уже знаем, что возможна организация массива мас-
сивов, а точнее элементами массива могут быть другие масси-
вы. Описание массива в этом случае может выглядеть так:
     ...: array[... ] of array...
                                                            64