Subcadr Pirsum (In: A,K) : Integer;
Var A: Array Integer [N: Vector] Com;
Var C: Array Integer [N/2: Vector, N/2: Vector] Com;
Var T,L: Integer Reg;
Var M: Integer Com;
Var I,J: Number;
M:=log2(N);
For I:=1 To K/2 Do
Begin;
C[1,I]:=A[T]+A[T+1];
T:=T+2;
End;
L:=2;
For J:=2 To M Do
Begin;
For I:= l To K/2 Step l Do
C[J,I]=C[J-1, I]+C[J-1, I-L/2];
L=L*2;
End;
Result:= C[M, K/2];
Endsubcadr;

Рис.9. Программа и граф-схема подкадра параллельного суммирования элементов массива