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