Программа 7.2. Программа вычисления текущей суммы

100 'Вычисление текущей суммы

110 Y[0] = X[0]

120 FOR I% = 1 TO N%-1

130 Y[I%] = Y[I%-1] + X[I%]

140 NEXT I%