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

         нов, через запятую>] of <тип элементов> = (<список
         элементов массива, разделённых по группам в круглых
         скобках>);
        Примеры:

  Const
       M : array [ 1 .. 3, 1 .. 3] of integer = ((1, 2, 4) , (1, 7, 8) ,
                    (22, 8, 4)) ;
       T : array [ 1 .. 2, 1 .. 2, 1 .. 2] of byte = (((1, 8) , (4, 4)) ,
                    ((3, 2) , (5, 4))) ;
       В нашем случае все массивы были описаны как типизи-
рованные константы, значит их использование в программе
равноценно использованию обычных массивов - переменных.
        Задача. В одномерном массиве определить количество
последовательностей из нулей. Последовательности - это це-
почки из одного или более нулей, разделенные ненулевыми
элементами.
program p23;
const
   n= 10;
   A: array[l..n] of Integer = (0,1,0,1,0,1,0,1,0,1) ;
var
   zero: Boolean;
   i, k: integer;
begin
   zero:= false;
   k:= 0;
   for i : = 1 to n do
       case A[i] of
           0: if not zero then begin k:= k + 1; zero:= true; end;
           1: if zero then zero:= false;
       end;
   if a[n]= 0 then k:= k + 1;
   Writeln(' k= ', k);
end.
                                                                        70