Var A: REG;
Var B: Array [100: Stream];
Var C, I;
CADR a; A=0; ENDCadr;
CADR b; FOR I=1 TO 100 BEGIN
A=A+B[I]; C=A; END;
ENDCadr;

а) последовательная программа

Var A: REG;
Var B: Array [25: Stream, 4: Vector];
Var C,I;
CADR b; FOR I=1 TO 25
A=A+((B[I,1]+B[I,2])+(B[I,3]+B[I,4]));
C=A;
ENDCadr;

б) параллельная программа

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