Опрацювання табличних величин

  Фрагмент процедури для обчислення суми значень усіх елементів табличної величини :
          s := 0;
          for i := 1 to 10 do s := s + a[i];
  Фрагмент процедури для знаходження кількості значень елементів табличної величини, що дорівнюють заданому числу:
          k := 0;
          for i := 1 to 10 do If a[i] = x Then k:= k+1;
  Фрагмент процедури для визначення, чи є задане число серед значень елементів табличної величини :
          f := false;
          for i := 1 to 10 do
          If a[i] = x
          Then begin
                       f := true; break;
                   end;
  Фрагмент процедури для визначення найбільшого значення серед елементів табличної величини:
           max := a[1];
           for i := 2 to 10 do If a[i] > max Then max := a[i];
  Фрагмент процедури для визначення найбільшого і найменшого елементів у табличній величині, значення всіх елементів якої різні, їх номерів та перестановки цих значень місцями:
           max := a[1]; nmax :=1;
           min := a[1]; nmin := 1;
           for I := 2 to 10 do
           If a[i] > max
           Then
               begin
                    max := a[i];
                    nmax := i;
                end
            Else
            If a[i] < min
            Then
               begin
                   min := a[i];
                   nmin := i;
               end;
            a[nmax]  := min; a[nmin] := max;