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

Фрагмент процедури для обчислення суми значень усіх елементів табличної величини:

             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[i];
            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
              begine
                   max := a[i];
                   nmax := i;
               end
           Else
           If a[i] < min
           Then
              begine
                  min := a[i];
                  nmin := i;
               end;
           a[nmax] := min; a[nmin] := max;