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

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

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